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CHANGES FOR TERRAPIN LOGO VERSION 2.0 


Version 2.0 of Terrapin Logo differs from versions 1.0-1.3 in the following 
respects: 

The command to kill a line in the editor is now <CTRL>X instead of 
<CTRL>K. (This change was necessary to permit use of all four cursor keys.) 
The most recently deleted line/region can now be Yanked back into the editor 
with <CTRL>Y. 


The <DELETE> key on the Apple lie can be used to delete backwards one 
character (just as the <ESC> key does). All four arrow keys may be used in 
the editor to move the cursor. 

Six new primitives have been added: MEMBER?, EMPTY?, ITEM, COUNT, 
LOCAL, SETDISK 

MEMBER? takes two inputs, and outputs “TRUE if the first is a member of 
the second. 

MEMBER? “A “QUARK outputs “TRUE 
MEMBER? “A [A B C] outputs “TRUE 
MEMBER? “Z [A B C] outputs “FALSE 

EMPTY? outputs “TRUE if its input is the empty word or the empty list. 
EMPTY? “ outputs “TRUE 
EMPTY? [] outputs “TRUE 
EMPTY? “BOB outputs “FALSE 

ITEM takes two inputs, a number and a list/word, and outputs the nth 
element of the second input. 

ITEM 3 “TURTLE outputs “R 

ITEM 2 [ED RALPH TRIXIE] outputs “RALPH 

ITEM 3 [FRED ETHEL [LITTLE RICKY] ] outputs [LITTLE RICKY] 

COUNT returns the number of elements in its input, which can be either a 
word or a list. 

COUNT “ABC outputs 3 

COUNT [SNEEZY GRUMPY SLEEPY DOC] outputs 4 
COUNT [SNEEZY GRUMPY [SNOW WHITE] ] outputs 3 



LOCAL allows the creation of a local variable not declared in the title line, e.g. 
TO DEMO 
LOCAL “STUFF 
MAKE “STUFF REQUEST 

IF EMPTY? :STUFF PRINT [SHY?] ELSE PRINT :STUFF 
END 

SETDISK takes two inputs, a drive number and a slot number, and directs all 
subsequent file commands to the specified drive. Default is SETDISK 1 6. 

Garbage collection of truly worthless atoms (GCTWA) has been added, with 
the result that the error message NO STORAGE LEFT! does not crop up 
inexplicably during long sessions. 

The command to recall the previous line in immediate mode, <CTRL>P, can 
now be used after the REPEAT, RUN, and DEFINE commands as well. 

Self-starting files can now be created more easily. Simply create a global 
variable named STARTUP. Its value should be a list containing the name(s) of 
the procedure(s) to be automatically run when the file is read in. 

For example, if you tell Logo MAKE “STARTUP [FOO] and then save the 
workspace (SAVE “BAR), Logo will run FOO whenever the file BAR is read in. 

PO, SAVE, EDIT, and ERASE can now take a list of procedures as input. The 
PSAVE utility is thus obsolete; now you may type (SAVE “FILENAME [PROC1 
PROC2 PROC3...]) instead. 

The DOS primitive no longer supports the MON, NOMON, and VERIFY 
options. The space following the option name is no longer unnecessary; for 
instance, typing DOS [BLOADPICTURE] will give an error. Adding a space 
after BLOAD will correct the problem. Also, addresses given to the DOS 
primitive may be expressed in either decimal or hexadecimal form. 

The changes to the DOS also allow you to read Apple DOS text files. A 
particular effect of this is that Apple (LCSI) Logo files can be read into 
Terrapin Logo using the standard READ primitive. (Of course, the procedures 
in such files will not execute properly until syntax corrections are made.) 


Terrapin Logo 
Packing List 


This package should contain: 

1 Documentation Manual which includes 
1 Terrapin Logo Tutorial 
1 Technical Manual 

1 Terrapin Logo Language Disk (16 sector) 

1 Terrapin Logo Utilities Disk (16 sector) 

1 Warranty Registration Card 

Please fill out and return the Warranty Registration 
Card immediately. If you are missing any of these com¬ 
ponents, contact the retailer from whom you purchased 
the package or contact Terrapin, Inc., 380 Green Street, 
Cambridge, MA 02139. (617) 492-8816 


Backup, replacement, and update policy 


The disk with the Logo language on it is copy pro¬ 
tected. If you have ordered a backup Language Disk, it 
should be enclosed. If you have not ordered a backup 
disk and would like one, mail the warranty card, proof 
of purchase, and a check for $15.00 to Terrapin. If the 
Language disk is damaged within the warranty period, 
send back the disk and Terrapin will send you a new 




one free of charge. After the warranty period, the 
charge will be $15.00. There will be a higher fee for 
any major update. 

NO OTHER WARRANTIES ARE EXPRESSED OR 
IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 
IMPLIED WARRANTIES OF MERCHANTABILITY 
AND FITNESS FOR A PARTICULAR PURPOSE. 
TERRAPIN IS NOT RESPONSIBLE FOR CONSE¬ 
QUENTIAL DAMAGES. Some states do not allow the 
exclusion or limitation of incidental or consequential 
damages, so the above limitation or exclusion may not 
apply to you. 
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DISCLAIMER OF ALL WARRANTIES 
AND LIABILITY 


This software product and the accompanying materials 
are sold “AS IS,” without warranty as to their perfor¬ 
mance. The entire risk as to the quality and perfor¬ 
mance of the computer software program is assumed 
by the user. The user of this product shall be entitled to 
use the product for his/her own use, but shall not be 
entitled to sell or transfer reproductions of the product 
or accompanying materials to other parties in any way. 
Terrapin, Inc. reserves the right to make improvements 
in the product described in this manual at any time 
and without notice. Neither Terrapin, Inc. nor anyone 
else who has been involved in the creation and produc¬ 
tion of this product shall be liable for indirect, special 
or consequential damages resulting from use of this 
product. 

COPYRIGHT AND TRADEMARK NOTICES 

The Technical Manual and the Logo software are copy¬ 
righted by the Massachusetts Institute of Technology. 
The Tutorial and changes to the Technical Manual and 
Logo software are copyrighted by Terrapin, Inc. 

It is against the law to copy, photocopy, reproduce, 
translate, or reduce to any electronic medium or any 
other medium, in whole or in part, the software and 
documentation included in the Terrapin Logo package, 
without prior written consent from Terrapin, Inc. 

Copyright, © Massachusetts Institute of Tech¬ 
nology, 1981. Except for the rights and materials 
reserved by others, the Publisher and Copyright owner 
hereby grant permission without charge to domestic 
persons of the United States and Canada for use of this 
work and related materials in the United States and 
Canada after 1995. For conditions of use and permis¬ 
sion to use materials contained herein or any part 



thereof for foreign publications or publication in other 
than the English language, apply to the Copyright 
owner or publisher. Publication pursuant to any per¬ 
mission shall contain an acknowledgment of this 
copyright and an acknowledgment and disclaimer 
statement as follows: 

This material was prepared with the support of Na¬ 
tional Science Foundation Grant No. SED-7919033. 
However, any opinions, findings, conclusions, or 
recommendations expressed herein are those of the 
authors and do not necessarily reflect the views of the 
NSF. 

Each school purchasing and putting into use Logo will 
make the program object code and accompanying 
manuals and teaching guides, if any, available for 
inspection by the parents or guardians of the children 
who will be using Logo in the school. 

Copyright © Terrapin, Inc., 1982 
380 Green Street 
Cambridge, MA 02139 
(617)492-8816 

Terrapin hereby grants permission in advance to copy 
the computer programs listed in the documentation 
and on the utilities disk, for personal and archival 
purposes only. 

Terrapin expressly reserves all rights including with¬ 
out limitation copyright and trademark, in and to the 
Terrapin Logo mascot figures as represented herein, or 
from any other perspective. 

Terrapin, the Terrapin logo, and the Terrapin mascots 
are trademarks of Terrapin, Inc. 

Apple and Silentype are registered trademarks of 
Apple Computer, Inc. 

All references to “Logo” herein refer to the Logo lan¬ 
guage, developed at the Massachusetts Institute of 
Technology. 
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BEGINNING INLOGO 


Your Terrapin-Logo Package 

NOTE: This section should be read the first time you 
use your Logo package. If you have used Terrapin Logo 
before, or have a resource person or teacher helping 
you, skip to the next section, titled This Tutorial. 

In your Terrapin Logo package, you will find: 

1 Logo Language disk 

1 Utilities Disk containing demonstration and utility 
programs 

1 Documentation Manual containing 
1 Terrapin Logo Tutorial, which you are now read¬ 
ing, and 

1 Technical Manual 

In order to use Logo, you will also need: 

An Apple 11+ (or Apple II) with 48K of RAM 
One disk drive, with controller 

A16K memory card,such as the Apple Language Card, 
Microsoft, MCP or Davong RamCard. 

To save your work, you will need a blank disk. 

To copy the Utilities Disk, you will need the System 
Master disk that came with your disk drive and a sec¬ 
ond blank disk. Instructions for copying and using the 
Utilities Disk are in the Appendix. 

This tutorial assumes that your Apple is set up, with 
the disk controller plugged into slot 6, and the memory 
card in slot 0. 
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NOTE: It is possible to run Logo without a disk in the 
disk drive, but you would not be able to save your 
work. So we encourage you to prepare a blank disk for 
storing the procedures you will be writing. 


Preparing a Blank Disk for Use 

A blank disk, unlike an audio cassette tape, must be 
prepared before it can store information. This process 
is called initializing the disk. 

You use your Logo Utilities Disk briefly to initialize a 
blank disk. 


To initialize a disk on the Apple II Plus: 

1. Place the Logo Utilities disk in the disk drive and 
then turn on the Apple. 

2. When the red light on the disk drive goes out, re¬ 
move the Utilities disk from the disk drive and put 
it away in a safe place for future use. 






Before you use it again, make a backup copy 
of your Utilities Disk because it is possible to 
damage it or erase it accidentally. (Instruc¬ 
tions for copying and using the Utilities Disk 
are in the Appendix.) 





WARNING: BE SURE THE LOGO UTILITIES DISK IS 
REMOVED FROM THE DISK DRIVE and replaced 
with a blank disk before proceeding. When you type 
INIT HELLO, the disk in the disk drive will be erased. 


DO NOT TYPE INIT HELLO with your LOGO UTILI¬ 
TIES DISK in the disk drive. 
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3. Insert the blank disk you want to initialize into the 
disk drive, type 

INIT HELLO 

and press the <RETURN> key. The disk drive will 
whir for almost a minute, then the Apple prompt (]) 
will appear on the screen and the light will go out 
on the disk drive. 

4. Type PR#6 <RETURN> to start up the system us¬ 
ing your newly initialized disk. This produces the 
same results as turning the Apple off and on again. 
The disk drive should spin and the words 

TERRAPIN LOGO FILES DISK 
DISK VOLUME 254 
A 002 HELLO 
] 

should appear on the screen. (This checks that the 
disk really did get initialized.) Remove this disk 
from the disk drive, label it immediately, and use it 
to store your Logo procedures. We will refer to it 
again in the section When Logo Has Started Up in 
the chapter Starting Logo. 


More information about initializing disks is in the 
Logo Technical Manual in the File System section, 
titled Configuring File Diskettes, page 14, and in the 
APPLE DOS manual, page 13. BASIC programs and 
Logo procedures can be stored on the same disk. 
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This Tutorial 


This tutorial will teach you how to use Logo. The Tech¬ 
nical Manual is a reference document that contains 
descriptions of Logo primitives with explanations of 
what they do, and information about assembly lan¬ 
guage interfaces for Logo and the internal workings of 
Logo. You need not read it to start using Logo, but you 
will find it useful when you are ready for new 
challenges. 

Other books you may wish to read include MIND- 
STORMS: Children, Computers, and Powerful Ideas, 
by Seymour Papert, LOGO FOR THE APPLE II, by 
Harold Abelson, which will help you to continue to 
grow in your use of Logo, TURTLE GEOMETRY, 
by Harold Abelson and Andrea diSessa, which is 
awaiting the day that you think you have done all there 
is to do in Logo, and SPECIAL TECHNOLOGY FOR 
SPECIAL CHILDREN by E. Paul Goldenberg, which 
describes uses in several special needs environments. 

Once you are comfortable with your Apple, use this 
tutorial to learn the basics of programming in Logo. 
TVpe in the examples and problems. Think about what 
you are doing; expect to go over some sections more 
than once. 

Logo puts the user in control from the start. In keeping 
with that philosophy, this tutorial will suggest but not 
dictate. If you are ever really stuck for an idea, see the 
Appendix. It contains examples of all the ideas sug¬ 
gested. In fact, after you try things on your own, look 
through the Appendix for new ideas and tips and 
tricks. 
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In this tutorial you will meet three Logo mascots, all 
drawn with Logo. The elephant marks Things to Re¬ 
member. The rabbit points out neat tricks, short cuts, 
and quicker ways of doing things. Go slow and be 
careful when you see the snail. It calls attention to 
warnings and possible problems. The procedures that 
draw the mascots are listed in the Appendix. 


We have also put some information between light 
green bands and shifted them to the right on the page. 
It is not necessary to read this information your first 
time through the tutorial, but you will find it helpful 
when you return and want further explanations of 
specific sections. 

Overview: What can you do with Logo? 

Logo is a procedural language. Each procedure is a 
group of one or more instructions which the computer 
can store for reuse. These instructions can be either 
Logo commands or procedure names. When you have 
written a procedure to do a task, you can use it in any 
other procedure you write, without having to rewrite 
its instructions in that procedure, or having to chain to 
it, or link it. 


You build a system of procedures the way you build 
your own knowledge base, new procedures and knowl¬ 
edge using and building on what is already in exis¬ 
tence. This leads to clearer, more structured program¬ 
ming and thinking, in contrast to the development of 
one long, complicated procedure (program) which is 
common in some other languages. 
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Logo is what is known as an interpretive language. 
Logo commands produce immediate results. Logo can 
either execute a command immediately (called IMME¬ 
DIATE Mode) or you can use commands in procedures 
which can be stored and used as often as you want. 
Changing or correcting (editing) a procedure is simple 
in Logo. 


If you are familiar with other languages, you will be 
delighted with the lack of distinction between system 
commands, Logo primitives, and procedures. This is 
perhaps the most unusual aspect of Logo, and one of 
the most powerful, from the user’s standpoint. Any 
command you can type to Logo can be used within a 
Logo procedure. Logo procedures can even be written 
to edit themselves, or other procedures. 

You can begin to use all of the different types of com¬ 
mands immediately. As you advance in your program¬ 
ming skills, you will gradually discover the vast possi¬ 
bilities this opens to you. 



Graphics 


Logo graphics allows you to draw lines and turn in 
any direction. With its simple commands you may 
create figures and drawings of great complexity. In 
Logo you do not have the tedious task of figuring point 
to point co-ordinates, although Logo can tell you the 
co-ordinates at any position. 


Graphics is first in this tutorial because you need no 
experience to be able to use it. Pre-schoolers, using the 
single-letter commands in the INSTANT system, can 
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do Logo graphics. At the other end of the intellectual 
spectrum, Professors Harold Abelson and Andrea 
diSessa, at use Logo graphics to develop con¬ 

cepts in higher mathematics and physics in their book 
Turtle Geometry: The Computer as a Medium for Ex¬ 
ploring Mathematics. 

The Terrapin Thrtle 

Logo graphics commands and procedures, plus a few 
commands for horn-tooting, light-lighting, and touch¬ 
sensing, also control the physical Terrapin Turtle, 
(available separately) which rolls about the floor under 
your control.The robot turtle can be taught to follow 
mazes, move around things, and follow a straight 
course except when it is moving around obstructions, 
as well as draw designs as the screen turtle does. See 
Terrapin Turtle in the Appendix. 



Robot Floor TVirtle 


Music 

Using only the Apple, Logo makes it easy for you to 
write tunes and pieces of tunes and play games with 
pitch, time, and sequencing of phrases, without rewrit¬ 
ing your procedures. On a more advanced level, you 
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can define your own scales, still working with Logo 
primitives. See the chapter titled Music for details. 

Words and Lists 

Logo’s facility with words and lists makes it ideal for 
writing conversational programs, quizzes, pig-Latin 
translators, programs that teach, and even programs 
that learn: in short, all programs that need to manipu¬ 
late lists of information. 

Logo’s unique list-processing capabilities give you 
power over words which is impossible to match in 
non-list-processing languages such as BASIC, FOR¬ 
TRAN, and PASCAL. See the chapter titled Words and 
Lists for what Logo can do and what you can do with r 
it. > 

Computation 

In addition to the ordinary mathematical computations 
all languages can handle, Logo’s built-in ability to do 
recursion, which allows a procedure to use itself as a 
subprocedure, makes it easy to do computations not 
possible in languages such as BASIC and FORTRAN. 

You will meet recursion in each of the areas of Logo 
described in this overview. For a description of mathe¬ 
matical computation, see the chapter titled Computa¬ 
tion: Handling Numbers. 
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SPACE 


The Apple II Keyboard 

Starting Logo 

BEFORE YOU BEGIN: It would be a good idea at this 
time to identify special keys with the stick on labels 
provided. The <ESC> key turns into <DEL>, <N> 
becomes <N> plus <[>, and <M> beomes <M> 
plus <]>. 

One of the disks packaged with your system is called 
the Language Disk. It is the disk with the Logo inter¬ 
preter on it. The other disk, labeled Utilities Disk con¬ 
tains some demonstration and utility programs. They 
are mentioned where appropriate in the tutorial and 
summarized and cross-referenced in the Appendix. 
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Apple II Plus with Disk Drive Language Disk 

and Monitor 


With the Apple turned off, (1) place the Language Disk 
in your disk drive with the label facing up and closest 
to the front. (2) Close the disk drive door firmly. (3) 
Turn on the monitor. (4) Turn on the Apple. The on-off 
switch is on the back at the left as you face the ma¬ 
chine. (Users of Apple IIs without AutoStart ROM 
should (A) press <RETURN>, (B) type the number 6, 
(C) hold down the <CTRL> key and press P, and (D) 
press the <RETURN> key again.) 
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(3) (4) 


The Apple will print the message 
APPLE ][ 

at the top of its screen, the disk drive light will go on , 
and the Apple will print 

LOADING, PLEASE WAIT... 

If this message does not appear, check to be sure that 
you are using the Language disk and that the disk drive 
door is firmly closed. 

It takes about 40 seconds to load and start Logo. When 
it has started, Logo will print this brief message: 

THE TERRAPIN LOGO LANGUAGE 

WRITTEN BY L. KLOTZ, P. S0BALVARR0 
AND S. HAIN UNDER THE SUPERVISION 
OF H. ABELSON 

WELCOME TO LOGO 
? 
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If Logo does not start up after about one minute, your 
language disk may be damaged in some way, or your 
disk drive may be damaged. If other disks work on 
your disk drive, the problem is most likely with your 
16K Memory card or your Language disk. If you get the 
message LOADING, PLEASE WAIT and then get aster¬ 
isks and numbers after 30 seconds or so, you probably 
have only 48K instead of the required 64K of memory. 
If you are using a revised version of Logo, you will get 
a message saying you do not have a language card. 


Logo will print its HELLO message and a ? when it is 
ready for you. The ? is called a prompt, prompting you 
to respond with a Logo command. The flashing box is — 
called the cursor. It shows you where the next character ' 

you type will appear. Whenever the cursor is flashing, 

Logo is waiting for you to type something. 

(This would be a good time to remove the Logo Lan¬ 
guage disk from the disk drive, put it in a safe place, 
and replace it with the blank disk you have initialized 
and will be using to store your Logo procedures.) 


You give Logo directions by typing commands at the 
Apple keyboard. Logo reads what you have typed 
when you press the <RETURN> key. Pressing 
<RETURN> is like saying DO IT. Nothing will happen 


until you hit <RETURN>. 
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/TN NOTE ON POINTED BRACKETS: When you see 

pointed brackets < > around a word, press the key on 
the keyboard with that word on it. Do not spell out the 
word. When you see <CTRL> C, hold down the 
<CTRL> key and type the letter C. (Think of the 
<CTRL> key as a different kind of <SHIFT> key.) 

<U SPECIAL NOTE: Nothing you type can harm the com- 
puter or Logo. Even the worst that can happen is not 
too bad: pressing the RESET key while using Logo 
may take you out of Logo and mean the loss of work 
you have not yet stored, but it will not harm Logo or 
the computer. Much of the time you can recover your 
work after an accidental <RESET> (see below). So, do 
not be afraid to try things. 

RECOVERY PROCESS 

To recover, type <CTRL> Y <RETURN>, that is, hold 
down the <CTRL> key and press the < Y>, then press 
<RETURN>. (You may have to type <CTRL> G also.) 
Usually this will put you back into Logo. If it does not, 
turn the machine off and start Logo according to the 
four-step Starting Logo: Summary on page B-16. 

When Logo does not understand something 
typed, it will try to help you by typing out a 
message. Most of the time you will have no 
trouble figuring out what is wrong, but when 
you do, turn to the list of Error Messages and 
their explanations (with examples) in the 
Appendix. 


Terrapin Logo Tutorial 


B-13 





Beginning in Logo 



Once in a great while Logo confesses (rightly or 
wrongly) to a bug and puts you into the Apple monitor, 
with a line similar to 

* FFFF- A = 50 X = 02 Y = 4A P = 30 S = 05 


Later versions of Logo type out explicit messages and 
recovery instructions. Use the recovery process ex¬ 
plained above for this, too. Ignore any reference to 
Unmatched Right Bracket. 


USE THE EDITING KEYS TO CORRECT TYPING ER¬ 
RORS: The old <ESC> key, which you have marked 
<DEL>, moves the cursor to the left and erases that 
character. Each arrow key moves the cursor in the di¬ 
rection it points on the keyboard. Any letter, number, 
or symbol that you type will appear exactly where the 
cursor is blinking, even if you have used the arrow 
keys to move the cursor back into the text. The letters 
under and after the cursor will move to the right to 
make room. 



Type 

MARY HAD A LITTLE LAMB 

Use the <DEL> (<ESC>) key to erase the last charac¬ 
ter. lYy it a few times. Move the cursor back several 
letters using the left-arrow key. Notice that this does 
not erase the letters it travels over. Change the line to 
read: 


GARY HAD A LITTLE LAMB 
GARY HAD A LITTLE HAM 
GERTA HAD A LITTLE HAM SOUP 
GERTA HAD XVP26 A LITTLE HAM SOUP 
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Finally, change it back to 
MARY HAD A LITTLE LAMB. 

See how typing characters in the middle of the line 
makes the rest of the line move over to make room? 
You can never accidentally type on top of other charac¬ 
ters and cause them to be erased. 



Press <RETURN> now. Logo will try to understand 
the whole line as a series of commands. Since the 
words MARY HAD A LITTLE LAMB are not Logo 
commands, Logo will tell you so. Type MARY again. 
Tell Logo to ignore what is typed with <CTRL> G 
(before you press <RETURN>). To do this, hold down 
the <CTRL> key and press the <G> key.(Remember, 
the <CTRL> key is like a special <SHIFT> key which 
is always used with another key.) Logo will print 
STOPPEDland a new prompt. Typing <CTRL> G is 
the usual way to stop Logo, whatever it is doing. 


CAUTION: At any time, you can exit Logo by turning 
the machine off; however, by doing so, you will lose all 
your work unless you have saved it on the disk. You 
are also likely to lose your work if you press the RESET 
key and have to restart Logo. Use <CTRL> G to stop 
programs; stay away from the <RESET> key. (An 
internal switch can be set in your APPLE to require 
one to press <CTRL> <RESET> to activate <RE- 
SET>. Doing this can save a lot of grief if you have an 
itchy <RESET> finger.) But be sure to try the recovery 
process outlined above if you do press <RESET>. 
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STARTING LOGO: SUMMARY 

1. Place Language Disk in disk drive 

2. Turn on Apple; wait approximately 40 
seconds while Logo is loaded. 

3. After WELCOME TO LOGO is printed 
Remove the Language Disk. Insert your 
storage disk 

4. You are ready to proceed with Logo 
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GRAPHICS 



Since this tutorial is written for our reading 
constituency, we have placed the section 
describing INSTANT for non-reading users at 
the end of the Graphics chapter. 


Logo puts the user in control from the start. In keeping 
with that philosophy, this tutorial will suggest but not 
dictate. If you are ever really stuck for an idea, see the 
Procedures section of the Appendix. It contains exam¬ 
ples of all the ideas suggested. In fact, after you try 
things on your own, look through the Appendix for 
new ideas and tips and tricks. 

Graphics Mode 

Enter the graphics or DRAW mode by typing DRAW: 
DRAW 


and press the <RETURN> key. (Remember, pointed 
brackets around a word refer to a key, not a word to be 
typed.) 

A drastic change occurs on the screen; the command 
you have just typed and all other commands will dis¬ 
appear. A small triangle will appear in the middle of 
the screen, and the prompt will be in the lower left 
region of the screen. 

Logo is now in DRAW mode. The bottom four lines of 
the screen are reserved for commands you will type 
and the rest of the screen is drawing space. 
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Splitscreen and Turtle 



The small triangle in the middle of your screen is 
called the turtle. When it first appears, it is pointing 
upward. You can tell where it is heading by the black 
bar that runs across its back. 

Driving the Turtle: FORWARD (FD), 
BACK(BK), RIGHT (RT), LEFT(LT) 

You move the turtle with turtle commands. The turtle 
can leave a trail as it moves, allowing you to produce a 
picture. 


? FD 100 
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FORWARD always moves the turtle in the direction it 
is pointed. Type 

FORWARD 100 <RETURN> 

or the short equivalent 

FD 100 <RETURN> 

The turtle will move forward one hundred turtle steps. 
* The space between the command and the number is 
necessary. If omitted, Logo will assume the whole 
thing to be a procedure name. (Try FDlOO without the 
space.) 

If you leave out the number that FORWARD is expect¬ 
ing, or the space, or do something else that Logo does 
not recognize, Logo will try to help you by printing an 
error message. These are usually self-explanatory, but 
if you cannot figure out what is wrong, turn to the 
Appendix where error messages are interpreted with 
examples. 

To make the turtle turn, type the direction of the turn 
and the number of degrees: 

RIGHT 90 <RETURN> or RT 90 <RETURN> 


? FD 100 
? RT 90 
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You told the turtle to turn right 90 degrees (a quarter of 
a circle). If you type RIGHT 90 again, the turtle will 
point straight down. 


Type 

LEFT 90 <RETURN> or LT 90 <RETURN> 


From now on, we’ll assume you know to press the 
<RETURN> key after a command. 


The turtle will turn in place 90 degrees to its left. Try 
moving the turtle around yourself. Type BACK (or BK) 
with a number of steps. 



To clear the screen and start over, type DRAW. DRAW 
erases whatever picture is on the screen and takes the 
turtle to its starting position. Use DRAW whenever 
you want to start a new picture. 



Play with the turtle some more. 

(1) Try some odd distances and turns, such as 


FD 87 
RT 43 
FD 26 
LT 141 
FD 59 


(2) Draw a square 

(3) Try a triangle 
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Get familiar with the turtle commands. Use the com¬ 
mands or their abbreviations: 


Command Abbreviation 

FORWARD 
BACK 
RIGHT 
LEFT 

Let Logo Do Your Arithmetic 

Whenever Logo expects a number (we call this number 
its input), you can give it an arithmetic expression to 
evaluate to get a number. Logo will do the arithmetic 
for you. 

Type and Logo figures 

FD 10*5 FD 50 

RT 100/3 RT 33.3333... 

FD 5 + 5 FD 10 

This is useful for both accuracy and precision: the 
computer will not make a mistake, and the computer 
will make a division like 100/3 quite precisely. 

An Easy Way to Repeat Yourself: <CTRL> P 


FD 

BK 

RT 

LT 


You can put as many commands on the same line as 
you want, as long as you separate them with spaces. 
When you have typed a line and pressed <RETURN>, 
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Logo will repeat the line for you if you press 
<CTRL> P. (Hold down the <CTRL> key and press 
the <P>).Type 

FD 50 RT 30 FD 20 RT 115<RETURN> 

Logo draws the line. Type 
<CTRL> P Logotypes 
FD 50 RT 30 FD 20 RT 115 


You press <RETURN> to do it. 

Type <CTRL> P <RETURN> as many times as you 
wish; each time Logo will print and execute the line. 

If you put a space at the end of your original instruc¬ 
tion, you may also type 

<CTRL> P <CTRL> P <RETURN> 



This will print out two sets of your instructions. You 
^ can repeat the <CTRL> P as many times as you wish, 
up to 129 characters (9 characters more than 3 lines), as 
long as there are spaces between the commands. If you 
have no space at the end of the line, and type 
<CTRL> P twice, you will get 


FD 50 RT 30 FD 20 RT 115 FD 50 RT 30 FD 20 RT 115 


If there is no space at the end of the line when you type 
another <CTRL> P (as in the line above), the last com- 
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mand of the first batch will not be separated from the 
first command of the second, and Logo will stop and 
say 

THERE IS NO PROCEDURE NAMED 115 FD 

You can add a space after you type the <CTRL> P, but 
an easier way to insure a space is to put it there when 
you type the line (RT115 <SPACE> <RETURN>). 

The Screen: DRAW, NODRAW (ND), 
TEXTSCREEN(<CTRL> T), SPLITSCREEN 
(<CTRL> S), FULLSCREEN(<CTRL> F) 

When Logo is in DRAW mode, the Apple displays four 
lines of text at the bottom of the screen. To see the com¬ 
mands you have typed that have disappeared under 
the picture, type 

TEXTSCREEN or <CTRL> T 

Remember that you must hold the <CTRL> key down 
while you type the T. 

Try typing 

<CTRL> T 

To get back the split graphics/text screen, type 
SPLITSCREEN or <CTRL> S 

To show off your drawing without the distracting text, 
type 

FULLSCREEN or <CTRL> F 
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<CTRL> S will bring back the split screen from either 
the text or fullscreen. 

To clear the screen and leave DRAW mode, 
type NODRAW, abbreviated ND. Type ND 
< RE TURN > right now. 

Type DRAW again to do some graphics projects. 

Turtle-driving Projects 

1. Determine how many turtle steps it takes to get to 
the top edge of the screen. 

2. Determine how many turtle steps from the bottom 
edge of the screen to the top. From the left edge to 
the right. 

3. (Tricky one) How many steps from the lower left 
corner of the split screen to the upper right corner? 

4. (Trickier still) How many from the lower left corner 
of the full screen to the upper right? 

5. Try each of the commands with a negative number. 
(Example: FORWARD -100) How else could the 
turtle make the same move? 

6. Can you draw a square? A rectangle? 

7. Can you draw your initials? 

Color: PENCOLOR (PC) and 
BACKGROUND (BG) 

The turtle has six pencolors and six background colors, 
plus a switching so-called color that reverses the color 
it passes over. The colors are numbered from 0 to 6. 
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Here are the colors and numbers for a black back¬ 
ground (BG 0): 


• ; 3 ' ■ - 
* ’v - : 


Color 

Black 

White 


liilSili 


Green 


v 

■ 


Violet 


■'ll. 




V 


Blue 

Reverse 


Number 


2 

3 

4 

5 

6 


■lilll 

rttSIIII 


The PENCOLOR (or PC) primitive takes the number of 
the color as input, and sets the turtle’s pencolor to that 
color. Try typing 


DRAW 
PC 4 
LT 45 
FD 50 
RT 90 
FD 50 


To change the background color, type BACKGROUND 
(or BG) and the number. BG 1 gives a white back¬ 
ground. BG 1 PC 0 will give you a black pen on a white 
background. Try typing 

BG 5 
RT 135 
FD 62 
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The Apple computer color system determines the use 
of background colors. Blue and orange, for instance, 
do interesting things when exposed to violet and 
green. Combinations which will work as you expect: 

PENCOLOR on BACKGROUND draws 

4 2 green on green 

(erases) 

4 3 green on violet 

5 2 violet on green 

5 3 violet on violet 

2 4 orange on orange 

2 5 orange on blue —s, 

3 4 blue on orange 

3 5 blue on blue (erases) 

In addition, changing the background color after a 
picture is drawn may change some of the lines in pecu¬ 
liar ways. Returning to the original backgound color 
restores the picture. 

To see the effects of the different combinations, set a 
background color and draw some lines in each of the 
different colors. Change the background color and do 
it again. 

On a black and white screen, colors 2-5 take on differ¬ 
ent textures, but black and white remain the same as 
always. 
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Logo draws thick lines to obtain clear colors on the 
Apple. On a black-and-white monitor, for thin white 
lines on black, use BG 6 and PC 1 through 5. PC 0 is 
black. (On a color monitor, these lines will not be uni¬ 
formly white: vertical lines will be red or green, de¬ 
pending on their position.) 

The Magic ofPENCOLOR 6: Erasing 



PC 6 changes black to white and white to black when 
turtle tracks cross. This means that the turtle can erase 
a line by going back over it with PC changed to 6. To 
see how it works, type 


FD 100 
PC 6 
BK 100 


Now is the time to see one of the amazing effects you 
can create. 


Type 

PC 6 
LT 2 

FD 3000 

Vary the turn and the distance forward for different 
effects. Try starting the turtle at the edge of the 
screen... 
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Something to Try After You Read the 
Procedures Section 

To see the effect of PC 6 with a non-stop pro¬ 
cedure, choose one that never takes the same 
track twice. Clear the screen, hide the turtle, 
set your pencolor to 6, the reversing color, 
type the name of your procedure, and hit 
<CTRL> F so you can watch on the full 
screen: 

DRAW HT PC 6 (procedure name) <CTRL> F 


Introduction to Procedure Writing 

Now that you know how to drive the turtle around and 
make shapes, we will proceed to giving your shapes 
names which will become new turtle commands. You 
will be able to type BOX and get your box picture back, 
or SQUIGGLE to draw your squiggle. 

To do this, you will write procedures. 

A procedure is a series of commands which you design 
to achieve a specific purpose. The commands may be 
composed of procedures and/or Logo primitives. 

LOGO COMMANDS 

a command that Logo has already been 
taught 

a command that you teach Logo 


PRIMITIVE: 

PROCEDURE: 
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Think of the PRIMITIVES as the core of the world of 
PROCEDURES you will write. 

FORWARD, BACK, LEFT, RIGHT, DRAW, and NO¬ 
DRAW are Logo primitives. You used the primitives by 
typing their names, with numbers if they required 
them. To use a procedure, you do the same. 

Naming a Procedure 

Type 

MOVE <RETURN> 

Logo tells you 

THERE IS NO PROCEDURE NAMED MOVE 

Logo is saying that it does not recognize the word you 
typed as either a Logo primitive or a procedure name. 
It does not know how to do that command. 
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Writing a Procedure: EDIT Mode: TO, END, 
<CTRL> C, <CTRL> G 


To write a procedure, start with the name. The tutorial 
will use the name MOVE, but you may use your own. 

We tell Logo that we’re about to write a new procedure 
by writing TO and the name of the procedure. For 
example, type: 

TO MOVE 

When you press <RETURN>, the screen will change: 
Logo will clear the screen and print the words 
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TO MOVE on the first line. Now Logo is in EDIT mode. 
The cursor will be at the beginning of the next line. At 
the bottom of the screen there will be a white line with 
black letters. It always says the same thing: 

EDIT:CTRL-C TO DEFINE,CTRL-G TO ABORT 


TO MOVE 


EDIT CTRL-C TQ DEFINE CTRL-G TO ABORT 



This reminds you that you are in EDIT mode, and tells 
you the two ways to get out of it: <CTRL> C to Com¬ 
plete the job and <CTRL> G in which any changes 
you have made in EDIT are Gone. 


EDIT mode is very different from IMMEDIATE mode. 
In IMMEDIATE mode, Logo does the commands that 
you type (like FORWARD or RIGHT) as soon as you 
press the <RETURN> key. In EDIT mode, Logo waits 
for you to define a whole procedure; that is, to write a 
series of commands that will constitute the new proce¬ 
dure. 
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TO (Procedure Name) 



While you are in the editor you write the procedure. To 
use it, you must first get out of the editor by typing 
<CTRL> C, which puts you back into IMMEDIATE 
mode. (But don’t do this yet.) 

When you are using the editor, you can use the right 
and left arrows to move the cursor and <DEL> 
(<ESC>) to erase the character at the left of the cursor, 
just as you can in IMMEDIATE mode. 

Type a line of text to practice. For example, you might 
type 

FORWARD 33 
RIGHT 55 

(or their short versions:) 

FD 33 
RT 55 

Press the 

<RETURN> 
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key. Note that it moved the cursor to the next line. In 
fact, <RETURN> is just another character to the editor: 
you can even erase it with the <DEL> (<ESC>) key. 
Press 


<DEL> (<ESC>) and then the 
<RETURN> 


key again to see this. Press 
<DEL> (<ESC>) 



until the whole line under TO MOVE goes away. (You 
can use the <REPT> (repeat) key on the Apple in 
conjunction with <DEL> (<ESC>) to delete several 
characters very quickly.) 


(See the APPENDIX and the Technical Manual for a 
discussion and summary of some other editing com¬ 
mands.) 

Now type a series of commands, alternating FOR¬ 
WARD or BACK with RIGHT or LEFT. Remember to 
include the number of turtle steps or degrees, and to 
press <RETURN> after each. 


For your first time through this tutorial, type either 
version of MOVE: 


TO MOVE 
FORWARD 100 
RIGHT 15 
BACK 80 
RIGHT 25 


TO MOVE 
FD 100 
RT 15 
BK 80 
RT 25 
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TO MOVE 
FORWARD 100 
RIGHT 15 
BACK 80 
RIGHT 25 


EDIT CTRL-G TO DEFINE CTRl-G TQ ABORT 



Look over your procedure to be sure that 

(1) the commands are spelled correctly, 

(2) that you have used zeros in your numbers and not 
the letter O (zeros have slashes through them on 
the Apple), and 

(3) that there are spaces between the commands and 
the numbers. 



Use the arrows and the <DEL> (<ESC>) key to fix 
errors. Use <REPT> (repeat) with the arrows to move 
the cursor quickly. When you finish your repairs, leave 
the cursor where it happens to be. Logo, unlike other 
languages, does not require the cursor to be at the end 
of the listing or even at the end of a line when you 
leave the EDIT mode. 


The white line at the very bottom of the screen tells 
you the two ways of exiting from the editor and return¬ 
ing to IMMEDIATE mode. 

Press <CTRL> C. 


Logo will Complete your procedure definition: it will 
return you to IMMEDIATE mode, and will remember 
your procedure MOVE while you stay in Logo. It will 
confirm that it has read in your program by saying 
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MOVE DEFINED 

If instead, you type <CTRL> G, your work done in 
EDIT mode will be Gone: Logo will return you to IM¬ 
MEDIATE mode without accepting the work you did 
in EDIT. <CTRL> G stops Logo, whatever it is doing. 
Logo will confirm this state of affairs with 

STOPPED! 

? 


Note above that Logo types PLEASE WAIT... 

then MOVE DEFINED 
followed by the prompt ? 

(The wait occurs when you write a long pro¬ 
cedure. You will not notice the wait with a 
short procedure like this.) 

Congratulations! You have written your first procedure. 
You have taught the turtle a new command. But wait! 
It’s not time for congratulations yet. Does it work? You 
must try it. 

Running a Procedure 

Type 

MOVE<RETURN> 

Just as typing the name of a primitive makes Logo do 
it, typing the name of a procedure makes Logo do what 
that procedure says to do. This is called RUNNING or 
EXECUTING the procedure. 
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If you have typed a word incorrectly within your proce¬ 
dure, Logo will try to help you by printing an error 
message. If you cannot figure out what the problem is, 
see the Appendix, which explains error messages with 
examples. 


6 ^ 


To make a change in your procedure, reenter the EDIT 
mode by typing TO and the name of your procedure. 
To change MOVE, type 




TO MOVE 


The screen will look as it did just before you left EDIT. 

Logo confirms that you are again in EDIT mode with 
the white line at the bottom of the screen. 

Make your changes using the arrows and <DEL> 

(<ESC>) key (don’t forget to use the <REPT> (repeat) 
key to make moving easier), and exit EDIT with 
<CTRL> C. You are DEBUGGING your procedure 
(removing errors, called BUGS). 

Run your procedure by typing its name. And now... 
Congratulations! It should look like the picture above. 

J 


G-20 


Terrapin Logo Tutorial 




Graphics 


Type MOVE again. The turtle will begin at the place it 
finished and will go in the direction it was pointing. 
You can also add to the shape on the screen by driving 
the turtle around with individual commands such as 
RIGHT 12 or FORWARD 55, but these commands will 
not be included in the procedure. 


You may put as many commands on a line as 
you wish; separate them with spaces and 
press <RETURN> at the end of the line to 
run them. If you run over the end of the line, 
Logo will continue on to the next line. (In 
EDIT mode, Logo puts an exclamation point 
to remind you that the line is continued). 


CAUTION: In IMMEDIATE mode, Logo will 
do commands until it sees something it does 
not recognize. If one of the first commands on 
a long line of commands is misspelled, it will 
stop there and you will have to retype the 
incorrect one and all that came after it. 

Planning and Drawing Your Favorite Square 

Procedures like MOVE draw somewhat random de¬ 
signs. Drawing a specific shape requires more specific 
thought about the sequence of commands you will 
write. 

Example: Define a procedure called SQUARE which 
will draw a square. 
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Decisions you must make: 

The number of 

1. steps on a side (your choice) 

2. degrees to turn at the corner (Aha!) 

3. times to do a side and/or turn (Hmmm) 

Things to remember (always): 


• Correct spelling of commands 

• Space between command and number 

• Use zeros in numbers, not the letter O 

• Press <RETURN> after each line 

• Begin with the name: 

(for this one, type TO SQUARE) 

• End your procedure with END 



(Logo will put END in for you if you forget it. The only 
time it is definitely needed is when you define more 
than one procedure in the editor at die same time.) 



• Exit the editor with <CTRL> C 
(C for Complete) 


Analysis: 


Decision 1: From your turtie-driving projects, you 
have a good idea of the size of the screen. Choose a 
number considerably less than half, so that you can 
use your square in larger pictures. (Draw your pro¬ 
posed square on the screen with a felt tipped water 
based pen and make the turde trace it.) 
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Decision 2: Only one specific number of degrees will 
work here; if you don’t know what it is, try a few before 
you begin on SQUARE. 

Decision 3: No doubt you know how many times you 
need to do the side and how many times you need to 
turn to draw a square. We will discuss other options 
later on. 





Defining SQUARE: 

To teach Logo the new command SQUARE, type 
TO SQUARE 

You are now in EDIT mode. Type in the commands 
you need, as you determined above. If you make mis¬ 
takes in typing, use the arrow keys and <DEL> 
(<ESC>) to correct them. If the mistake is not on the 
line with the cursor, you must move the cursor to that 
line to correct it. 



Exit from EDIT mode with <CTRL> C (C for Com¬ 
plete). 
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(Forgive the repetion of (C for Complete); we just don’t 
want you to lose any of the work you have done in 
EDIT as you would with <CTRL> G (G for Gone...)) 

Type SQUARE to run it. Move or turn the turtle and 
run it again, and again. Notice that the turtle draws the 
square from wherever it happens to be, and starts off 
on the first side in whatever direction it is heading. 



Now for a trick or two. You certainly don’t 
want to spend the rest of your life typing 
SQUARE when you could obtain the same 
results typing SQ. (Would you want to have 
to type the whole word FORWARD all the 
time?) You created the procedure SQUARE 
using Logo primitives such as FD, BK, LT, 
and RT. Now you can create a procedure SQ 
using the new Logo command, the procedure 
name SQUARE. 


Using the editing techniques you have 
learned, write a procedure SQ that looks like 
this: 


TO SQ 
SQUARE 
ENO 

Clear the screen with DRAW and run SQ. 
Clear it again with DRAW and run SQUARE. 
You should get the same results with both. 
Now any time you want to draw a square, 
type either SQ or SQUARE. 
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SQ and SQUARE can also be used in proce¬ 
dures any time you wish, and as many times 
as you wish, just like the Logo primitives. 


Projects: Simple Procedures 

Write several of your own procedures. Choose appro¬ 
priate names, but do not use the name MOVE as we 
will be using that again later. 


What goes Into a Procedure 


Any command you can type at the keyboard, as well as 
any procedure you have written, can be used in a pro¬ 
cedure. Some commands have two versions: one is a 
word spelled out at the keyboard and the other uses 
the <CTRL> key plus a letter. Use the word in a proce¬ 
dure; the <CTRL> version is only for convenience at 
the keyboard. 


SUMMARY OF COMMANDS USED SO FAR 
THAT HAVE A CONVENIENT KEYBOARD 
VERSION 


Procedure Version 

TEXTSCREEN 

SPLITSCREEN 

FULLSCREEN 


Keyboard Version 

<CTRL> T 
<CTRL> S 
<CTRL> F 
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More Primitives: REPEAT, CLEARSCREEN 
(CS), HOME, PENUP (PU), PENDOWN(PD) 

The Logo command REPEAT saves you the work of 
typing a command or series of commands more than 
once. You tell Logo the number of times you wish to 
repeat, and enclose the command(s) to be repeated in 
square brackets (marked with the stickers: 

[ is <SHIFT> N and ] is <SHIFT> M). 

Try these examples: 

REPEAT 4 [FD 23] 

REPEAT 3 [FD 30 RT 60] 

REPEAT 8 [FD 65 RT 135] 

REPEAT 20 [RT 50 FD 15 RT 60 FD 10] 

As you will recall, when you type <CTRL> P, Logo 
will retype the previous line for you. You press 
<RETURN>, and Logo will execute it. 


Unfortunately, <CTRL> P does not yet work with any 
line that uses REPEAT. 


To repeat MOVE 24 times, type 


REPEAT 24 [MOVE] 


If the turtle starts in the middle of the screen, the de¬ 
sign created by repeating MOVE will go off the edge 
(and appear on the opposite side). To avoid this, move 
the turtle before starting the design. 100 steps to the 
left and 100 steps down turn out to be a good starting 
point for MOVE, determined by examination and ex¬ 
perimentation. Find a good starting point for your 
procedure. 
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To walk the turtle to its starting point for MOVE, type 
LT 90 FD 100 LT 90 FD 100 




The turtle is there, but it is pointing down. To head it 
in the right direction to start MOVE, type RT180. 

Now, what about the track it left? (If you type DRAW to 
get rid of the track, you will also send the turtle home.) 
To keep it where it is as Logo clears the screen, type 
CLEARSCREEN (or CS). Now try that REPEAT line 
with MOVE. 

DRAW is a combination of CLEARSCREEN, SHOW- 
TURTLE (explained later), and HOME, the command 
that moves the turtle to the center of the screen and 
turns it to point straight up. Walk the turtle around 
some, then type HOME to see what happens. 
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There is another way to move the turtle without leav¬ 
ing a trace. Tell it to pick up its pen with PENUP (PU) 
before you start, and to put it down with PENDOWN 
(PD) when you get there. The line would be 

PU LT 90 FD 100 LT 90 FD 100 RT 180 PD 

The turtle arrives ready to draw, without leaving 
tracks. 


The names of the primitives PENUP and 
PENDOWN come from the robot floor turtle 
which has the ability to pull its pen up and 
not draw or put it down and draw. 


Procedure Projects 



1. Write a setup procedure to move the turtle to its 
starting point without leaving a track. 

2. Write a procedure using REPEAT which draws a 
design with MOVE. 

3. Write a procedure to draw a four-sided figure. 

4. Write a procedure to draw a rectangle. 

5. Use your setup and rectangle procedures to draw a 
rectangle where MOVE began. 

6. Write a procedure using REPEAT that repeats the 
sequence of drawing a shape with one of your shape 
procedures and then turns the turtle (then draws 
the shape and turns...) 
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^ Saving Procedures: CATALOG, SAVE, POTS 

You have created a procedure which Logo will remem¬ 
ber as long as you do not exit Logo or turn off your 
Apple. To be able to turn the computer off without 
losing your work, so that you may be able to use these 
procedures another day, you must ask Logo to SAVE 
them on a Logo file disk. Use a file disk prepared ac¬ 
cording to the instructions in the section titled Prepar¬ 
ing a Blank Disk. 

When you use the SAVE command, every procedure 
in your workspace is saved in a file on your disk. Your 
workspace is like your desktop. You do your work 
here, sometimes creating new material, sometimes 
bringing copies of files out of the drawers. When you 
finish for the day, you go to the copying machine, make 
a copy for the file, and file the copy away. Everything 
you are currently working on is on your desktop (in 
your workspace). This may include many procedures. 
When you want to save the contents of your workspace 
(desktop), use SAVE to transfer a copy of it to the disk 
(desk drawer). 

You can use and change procedures only when they 
are in your workspace, not on the disk. When you are 
happy with your changes, or finished for the session, 
you store a copy of the workspace contents back as a 
file on the disk. 

The SAVE command copies the entire contents of your 
workspace into a file on the disk. Just as your proce¬ 
dures have names, the collection of procedures in your 
workspace, which will be saved in a file, must have a 
name too, to distinguish it from your other files. Since 
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you choose the name for the group of procedures in 
the file, it is a smart idea to choose a file name that tells 
you what they are. The file name SHAPES might be 
useful for the first group of procedures you will be 
writing as you go through this chapter. 

Type 

SAVE "SHAPES 



The double-quote character immediately preceding 
the word is a crucial part of the file name. You cannot 
omit it. If you try to store your workspace without it, 
nothing will be saved, because Logo does not recognize 
it as a file name without the quote character. If you try 
to read a file without it, Logo will not find the file. 

The quote distinguishes other types of names from 
procedure names. There is no space between the quote 
character and the word. 



WARNING: You can have only one file per file name. 
Therefore, for the time being, use a new file name each 
time you save your workspace (such as SHAPES, 
SHAPESl, SHAPES2). (The Appendix includes more 
details about saving procedures.) If you had already 
had a file called SHAPES, the contents of the old file 
would be erased, replaced by the present contents of 
your workspace. 


If you had nothing in your workspace (which is the 
case every time you turn on the computer, before you 
read a file or write a procedure) and typed SAVE 
“SHAPES, Logo will print out a message telling you 


there is nothing to save. But if you had one item in 


G-30 


Terrapin Logo Tutorial 




Graphics 


your workspace, Logo would still save the entire con¬ 
tents of your workspace, even though it is almost 
empty, and the file “SHAPES would be replaced by a 
copy of the almost empty workspace. The old file 
“SHAPES on the disk would be gone. 

This would be like taking a blank book with only a 
title page to the copying machine, copying it, and re¬ 
placing your old files in the drawer with the copies of 
the blankpaper. 

To see the names of the files you have saved on your 
disk, type 

CATALOG 

Everything on the disk will be listed, including the 
HELLO file which was put there during the initializa¬ 
tion process, which must stay there although you will 
never need to use it again. Each Logo file will have 
your file name followed by .LOGO. For example, the 
new entry SHAPES.LOGO will appear on the list. 

To print out the titles of your procedures in your work¬ 
space, type 

POTS 

To print out the commands in a procedure, type PO 
(procedure name) i.e. 

PO BOX 
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SUMMARY 


Command 

CATALOG 

POTS 

PRINTOUT or PO 


Purpose: Lists 

Files on disk 
Procedure titles 
Procedure commands 


Example 

CATALOG 

POTS 

POBOX 


Clearing the Workspace, Reloading Proce¬ 
dures: READ, GOODRYE, ERASE (ER), 
ERASE ALL (ER ALL) 

You may reload procedures into your workspace at 
any time. The most usual time might be when you 
begin a new session with Logo, but there will be times 
when you wish to add the contents of another file to 
what is already in your workspace. To list on the screen 
the files which are saved on your disk, type CATALOG, 
as before. To reload the procedures from your file 
SHAPES.LOGO, type 

READ "SHAPES 


The red light on the disk drive will go on, the disk will 
whirr, and the computer will print out the name of 
each of your procedures in your file SHAPES and 
confirm that it has been read into your workspace by 
printing DEFINED. For instance, 


MOVE DEFINED 
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A word of warning: if you have changed MOVE in 
your workspace, the version read in from the disk will 
wipe out the one in your workspace. If you want to 
keep both versions, rename the one in your workspace 
using EDIT, before you read in the file. You can change 
the name in EDIT mode just as you change a command. 

To store them all back in SHAPES, type 

SAVE "SHAPES 


SAVE "FILENAME 



There will be times when you want to clear your work¬ 
space, particularly when you want to shift gears and 
read in another file. If you want to save your current 
work, save it first. 

To clear your workspace, type 

ERASE ALL 
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A similar result can be achieved with the 
command GOODBYE. See the Technical 
Manual for an explanation of GOODBYE. 

In addition, you may erase any individual procedure 
with ERASE and its name, i.e. ERASE MOVE. Be sure 
any procedure you want to keep is saved on disk before 
erasing it from your workspace. 


Saving Selectively: PSAVE 



The procedure PSAVE, on the Utilities Disk, 
saves a selected list of procedures in a file 
you name. For example, typing 


PSAVE "FIGURES [SQUARE CIRCLE TRIANGLE] 

saves the procedures SQUARE, CIRCLE, and 
TRIANGLE in the file “FIGURES. 


To get PSAVE, read the PSAVE file from the 
Utilities Disk. Insert your backup copy of the 
Utilities Disk into the disk drive (see the AP¬ 
PENDIX for how to copy the Utilities Disk). 
Type 

READ "PSAVE 

When the light goes out, remove the disk and 
replace it with the disk on which you save 
your own procedures. PSAVE is now in your 
workspace. 
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Use it as above. You may save it in your own 
file along with your procedures after you 
once read it from the Utilites Disk. If you 
choose to save PSAVE separately, be sure to 
save its subprocedures also. To save it in a 
separate file called PSAVE, type 

PSAVE "PSAVE [PSAVE POPROCS SAVEBUF] 

After you PSAVE procedures to a file, you 
may wish to erase them from your workspace 
(using ER and the procedure name). This will 
avoid saving another copy when you save the 
copy of your workspace. 

The file to which you PSAVE procedures is 
exactly like the file to which you save a copy 
of your workspace and is used in the same 
way. 


Saving, Reading and Erasing Pictures: 
SAVEPICT, READPICT, ERASEPICT 

Logo can store complicated pictures on your 
disk and read them back in much less time 
than it takes the procedure to draw them. 
However, there is a tradeoff in disk space. The 
procedure might take 1 block of disk storage 
space. The picture will occupy 34 blocks. 

Only you can decide when this is worthwhile. 

To save a picture (whatever is on the drawing 
part of the screen at the time), assign it a 
name. We shall use DANCER. To save the 
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picture part of the screen on the disk under 
the name DANCER, type 

SAVEPICT “DANCER 




The name you choose can be any name you 
care to give it. It does not have to be the same 
name as the procedure that drew it, but it 
could be. The picture can be the result of 
running one or several procedures (without 
clearing the screen between), or driving the 
turtle around, or a combination. Everything 
on the picture part of the screen except the 
turtle is stored with SAVEPICT. 

To recall a stored picture (remember, this one 
will be listed on the disk as DANCER.PICT), 
type 

READPICT "DANCER 

To remove the picture from the disk forever 
(not just from the workspace), type 


ERASEPICT "DANCER 


In each case, use the double-quote character 
before the first character of the name. 
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The Invisible Turtle: HIDETURTLE (HT), 
SHOWTURTLE (ST) 

There are two situations in which you might want the 
turtle to become invisible. 



1. To get it out of the way of your picture either during 
the drawing or after the picture is completed. 

2. To speed up the drawing of a picture (the invisible 
turtle draws faster). 


To tell the turtle to become invisible, type 
HT (or its long form) HIDETURTLE 
To tell it to reappear, type 


ST or SHOWTURTLE 


Except for being invisible, the hidden turtle works 
exactly the same as the visible turtle. In particular, it 
draws when its pen is down and leaves no trace when 
its pen is up. 
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Summary of Logo Commands Used So Far 


TURTLE COMMANDS 


Command Abbreviation 


FORWARD 

FD 

BACK 

BK 

LEFT 

LT 

RIGHT 

RT 

HOME 


PENUP 

PU 

PENDOWN 

PD 

HIDETURTLE 

HT 

SHOWTURTLE 

ST 

PENCOLOR 

PC 

BACKGROUND 

BG 



SCREEN COMMANDS 


Command 

CLEARSCREEN 

DRAW 

NODRAW 

TEXTSCREEN 

SPLITSCREEN 

FULLSCREEN 


Abbreviation 

cs 

ND 

<CTRL> T 
<CTRL> S 
<CTRL> F 
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FILE COMMANDS 

READ 

SAVE 

SAVEPICT 

READPICT 

ERASEPICT 


PENCOLORS on BGO 

PC 0 

Black 

PC 1 

White 

PC 2 

Green 

PC 3 

Violet 

PC 4 

Orange 

PC 5 

Blue 

PC 6 

Reverse 


Commands used in all Logo domains (Graphics, Music, 
Computation, etc.): 

TO ... REPEAT CATALOG 

END <CTRL> P POTS 

ERASE 

READ EDIT 

SAVE <CTRL> C 

<CTRL> G 

<CTRL> P, <CTRL> C, and <CTRL> G are keyboard 
instructions which cannot be used in procedures. 
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More About the Editor: <CTRL> P, 
<CTRL>N, <CTRL> O, <CTRL> A, 
<CTRL> E, <CTRL>D, <CTRL>K 


In EDIT mode you must often move the cursor from 
one line to another. One way to do this is to use an 
arrow key and the <REPT> (repeat) key. 

It is faster to type 

<CTRL> P 

to go to the Previous line (Up on the screen), 

<CTRL> N 

to move the cursor to the Next line (Down on the 
screen). 

(This is the same <CTRL> P you used in IMMEDIATE 
mode to get Logo to retype the previous line for you. 
Note that many things are different when you are in 
the editor.) 

To Open up a space to insert a new line, type 
<CTRL> 0 (letter O) 

No matter where the cursor is on the line, the rest of 
the line will be moved down to the next line, but the 
cursor will stay put. 

To move the cursor to the beginning of the line, type 
<CTRL> A 

To move the cursor to the End of the line, type 
<CTRL> E 
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To Delete the character under the cursor, type 
<CTRL> D 

Note that this is the opposite of the <DEL> key which 
deletes to the left of the cursor. 

To Kill a line from the cursor to the end, type 

<CTRL> K 

Other editing commands are described in the APPEN¬ 
DIX and Chapter 2 in the Technical Manual. 

SUMMARY OF EDITING COMMANDS 

MOVING BACKWARD MOVING FORWARD 


1 character Left arrow Right arrow 

End of line <CTRL> A <CTRL> E 

Adjacent line <CTRL>P <CTRL> N 

DELETING BACKWARD DELETING FORWARD 

1 character <DEL> (<ESC>) <CTRL> D 

Line —— <CTRL> K 


FOR EASY INSERTION OF A LINE 
Open line <CTRL> O 
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Projects Using Shapes 

1. Write a procedure (using SQ or SQUARE) that 
puts a square in each corner of the screen. (Hint: 
remember PENUP?)(Don’t forget PENDOWN) 

2. Write a procedure that draws a row of squares. 

3. Write a procedure that draws a tower of squares. 
(Hint: use your row of squares procedure in it) 

4. Write a procedure that draws a leaning tower of 
squares, (use your tower procedure) 

5. How about a window with four panes? 

6. Write a different procedure to draw the same size 
square as SQUARE. 

7. Using the same sort of analysis used in developing 
the SQUARE procedure, figure out how you would 
draw a triangle whose turns are all the same size, 
then write the procedure. 

8. Try #1-4 using triangles. 

9. Write procedures to use your 4-sided (not a square) 
figure to make designs. 

10. How about a window with 6 triangular panes? 

11. Write a different procedure to draw the same size 
triangle. 

Since all your new procedures (and old) are in your 
workspace, you can safely save them all in SHAPES by 
typing SAVE “SHAPES. 
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Listing a Procedure: PRINTOUT (PO), 
<CTRL> W 


Just as you can print out titles using POTS, you can 
also PRINTOUT the list of commands in any proce¬ 
dure. Type 

PO (procedure name) 

to list the commands in any procedure in your work¬ 
space. Type 

PO (procedure name) 

to list any other procedure in your workspace. PO pro¬ 
vides a handy, quick way to check on a procedure, but 
to make changes in it, you must get into EDIT mode as 
described before. Type 

PO ALL 


to scroll by the listings of all the procedures in your 
workspace. Use 



<CTRL> W (W for Wait) 

to stop the scrolling; each <CTRL> W you press after 
you stop the scrolling will move one line onto the 
screen. You may inspect the titles one by one with more 
<CTRL> Ws, or resume the scrolling by pressing an¬ 
other key. 
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SUMMARY OF LISTING COMMANDS 


Command 

Result 

CATALOG 

Lists names of files on disk in 
disk drive 

POTS 

Lists names of procedures in 
workspace 

PO 

(procedure name) Lists com¬ 
mands in named procedure 

PO ALL 

Lists commands in all proce¬ 
dures in workspace 

<CTRL> W 

Wait: computer waits for an¬ 
other key to be pressed: press 
<CTRL> W again for line by 
line inspection, or any key to 
resume scrolling. 


Heading: A Matter of State 

It is possible that when you closed your square and 
triangle, you finished your procedure with FD and did 
not follow it with a turn. This left the turtle heading in 
the direction the last side required. This makes it 
handy to draw successive figures in new positions, but 
it leads to confusion when you want to use the shape 
in another procedure. 

It is generally good programming practice to leave the 
turtle in the same state in which you found it. The 
state of the turtle is its position and heading. It is al¬ 
ready in the original position, since you closed the 
figure. All that is required is to turn the turtle so that it 
is heading in the original direction. This means one 
more turn, the same size as the other turns. 
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Consider these three procedures: 



TO SQ 

TO SUPER 

FD 30 

REPEAT 8 [SQ 1 

RT 90 

END 

FD 30 


RT 90 

TO STRANGE 

FD 30 

REPEAT 4 [SQ] 

RT 90 

RT 45 

FD 30 

REPEAT 4 [SQ] 

END 

END 


Both SUPER and STRANGE draw the same 
design (although they draw the parts of the 
design in a different order). 

Note that the last turn in SQ, the one that 
would turn the turtle back to its original head¬ 
ing, is omitted. 

If you edit SQ now to add a RT 90 at the end, 
SUPER will still draw the same design (in yet 
a new order), but STRANGE will not. 

This may seem odd at first because we have 
not changed STRANGE. However, we DID 
change the procedure STRANGE uses. 

To counteract the effect of adding the RT 90 
at the end of SQ, we would have to insert a 
LT 90 immediately after SQ in each procedure 
that uses it. 
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This kind of fix is not always so easy. For 
example, if the newly introduced extra was a 
line instead of a turn, it would be harder (in 
some contexts, impossible) to counteract its 
effect. 

So it is best to leave the turtle heading as it 
started. This will eliminate many interface 
bugs (puzzling things that must be fixed in 
order to use one procedure after another). 


Copying a Procedure 

Your procedures SQUARE and TRIANGLE may now 
need another command added to them to turn the 
turtle to its original heading. But you have used 
SQUARE and TRIANGLE in other procedures; chang¬ 
ing them now would spoil the procedures that use 
them. Take heart; change SQUARE, but give the new 
version a new name, such as SQUAREl. While in EDIT, 
change the name slightly (it can be edited like any 
other part of the procedure), then move down and add 
the new command. Voila. You now have your original 
procedure plus a slightly altered copy under a new 
name. 

A Magic Number 

Now for a rather basic question: how far around did 
the turtle turn when it drew the square that left it in 
the same state that it started from (same position and 
heading)? (Add up the turns.) How far around did the 
turtle turn when it drew the triangle that left it in its 
original state? 
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You have just discovered a great truth: the turtle will 
turn the same amount to get back to its original head¬ 
ing, no matter how it goes. The total amount of the 
turn, adding the turns in one direction and subtracting 
if it turns the other way, will be the magic number you 
just discovered. (Of course, if it goes one way and then 
cancels the turn out completely by going the other 
way, the total turn will be 0, but it will not have trav¬ 
eled completely AROUND anything, either.) This is 
called The Total Turtle Trip Theorem: if the turtle 
travels around an area, no matter what shape, and 
ends in the same place that it started, heading in the 
same direction, it always turns the same amount. 

You can use the magic number to make shapes with 
any number of sides. To see the relationship between 
the magic number and the turns you made in the 
square, divide the magic number by the number of 
turns. Let Logo do it for you. On the computer, where 
we cannot type one character above another on a single 
line, we use the slash (/) (on same key as the ?) for 
division. To divide 10 by 5, type 

10/5 

Logo will reply 
RESULT: 2 

Remember, when Logo requires a number, it can use 
the result of an arithmetic operation, so you can also 
use this division as the number required by the Logo 
primitives FD, BK, LT, and RT. For example, 
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Command 


Equivalent 


FD 100/2 FD 50 

RT 300/30 RT 10 

BK 200/4 BK 50 

LT 360/4 LT 90 


Projects: More Shapes 


1. Using REPEAT and division in your turn command, 
write another procedure that draws a square. 

2. Using REPEAT and division in your turn command, 
write another procedure that draws a triangle. 

3. Using REPEAT and division in your turn command, 
write a procedure that draws a 5-sided figure. 

4. Write a procedure that draws a 6-sided figure. 

5. Write a procedure that draws a 7-sided figure. 

6. How about a 15-sided figure? 



Introduction to Variables: 
Procedures That Take Inputs 


DRAW does the same thing each time it is used. FOR¬ 
WARD is more flexible; it moves the turtle different 
distances depending on its input. 



INPUT is the specific term for the number required by 
commands like FD, BK, LT, and RT. (Later you will 
also see INPUTS which are not numbers.) 


So far your procedures have always done the same 
thing each time they were used, but it is possible to 
write procedures which use some input to tell them, 
for example, how much to move the turtle. 


G-48 


Terrapin Logo Tutorial 


Graphics 


It would be nice to have a BOX procedure which draws 
different sized squares, just as we have a line procedure 
(FORWARD) which draws different lengths of line. 

We would expect BOX 10 to produce a small box and 
BOX 100 to produce a larger box. To describe what 
happens more fully, we might say: 

To draw a box of some dimension, 
we go forward that dimension, 
turn right 90 degrees, 
go forward that dimension, 
turn right 90, 
forward that dimension, 
right 90, 

forward dimension, 
right 90 
and that’s it. 

The Logo translation of the English is very similar: 

TO BOX DIMENSION 
FD DIMENSION 
RT 90 

FD DIMENSION 
RT 90 

FD DIMENSION 
RT 90 

FD DIMENSION 
RT 90 
END 
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Or, we could have said: 


To draw a box of some dimension, 
we must, 4 times, go forward that dimension 
and turn right 90 degrees. 

which translates into Logo as 

TO BOX DIMENSION 
REPEAT 4 [ FD DIMENSION RT 90 ] 

END 

NOTE: 

1. The: that appears in the procedure must be there 
every time an input variable is used, attached di¬ 
rectly to the variable name without a space between. 
The dots distinguish the name of a variable from 
the name of a procedure. We call the colon (:) DOTS 
because it is more descriptive. Read DIMENSION 
as DOTS DIMENSION. 

2. Variable names are just as much your choice as 
procedure names. We could have written 

TO BOX :WIDTH or 

TO BOX :DIST or even 
TO BOX :X 

Of course, the name you choose in the title line 
must also be the one used within the procedure, so 
those procedures would have had 

FD :WIDTH FD :DIST and FD :X 

3. Note where the variable-number name must go, in 
the same place in which you previously put the 
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constant number. In the procedure TRI, for example, 
FD100 becomes FD :LENGTH. To pass the number 
into the procedure for FORWARD to use, the title 
now must become TO TRI :LENGTH. 

The two procedures look like this: 

TO TRI 

REPEAT 3 [FD 100 RT 120] 

END 

TO TRI :LENGTH 
REPEAT 3 [FD :LENGTH RT 120] 

END 





r> 


This TRI procedure is very much like the Logo primi¬ 
tives you have been using. For a triangle of any size, 
you type TRI and the length of the side. 


Try a few triangles of different sizes. 


Try typing TRI without a number. Now that TRI is 
defined with a variable input, Logo looks for that input, 
just as it does when you type FD or RT. To recall just 
what inputs a procedure is expecting, type either 
POTS, to print out the titles of all the procedures in 
your workspace, or PO (procedure name), to print out 
the one procedure (for instance PO TRI). 
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You have a choice now when you want to use TRI in 
another procedure. You can specify the size of the trian¬ 
gle in the procedure (TRI 75), or you can choose to 
decide on the size when you run the superprocedure it 
is in. You must pass the number in to TRI if you do not 
specify it inside the procedure. For example: 


TO TWO.TRI 
TRI 75 
RT 90 
TRI 75 
END 


TO TW0.TRI2 :LENGTH 
TRI :LENGTH 
RT 90 

TRI :LENGTH 
END 


Note: Two words can be combined with a dot to make 
a title. 

Both versions of TWO.TRI use the same subprocedure 
TRI. Both versions can make a triangle design with 
triangle sides of length 75. BUT one version can only 
draw a size 75 design, while the other can draw de¬ 
signs of any size. The size of its design will depend on 
the number you give it when you run it. 



The variable name :LENGTH may be used in any num¬ 
ber of procedures. You are allowed to have only one 
procedure named SQUARE or TRIANGLE, but both 
may use the variable name :LENGTH. :LENGTH is 
what is called a local variable, local to its procedure. A 
name used in one procedure will not interfere with the 
same name used in another. 


This also means that TWO.TRI2 could have used a 
different name for the variable than was used internally 
by TRI. 
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Projects: Sizable Shapes 

1. Write a procedure SQV with variable input and use 
it in a new procedure SQUARE4 to draw a series of 
squares of different sizes, all starting at the same 
place. (Hint: you can add to a picture; you don’t 
have to clear the screen with DRAW everytime you 
want to draw something more.) 

2. Add another set of squares beside the first. 

3. Write a procedure that uses a specific size square in 
it. 

4. (Here’s a toughie) Write a procedure that draws 4 
squares, each 25 steps bigger than the last, and 
which receives as input the size of the first square 
when the procedure is run. 

From SQUARE to POLY 

SQUARE4 (if you did project 1) now has a variable 
input for the length of the side, but it still has two other 
numbers, the size of the turn and the number of times 
the sequence is repeated. Either or both of these num¬ 
bers could also become variables. (However, if we 
change either one, it would not draw a square.) 

You know from your experiments that 360 is the magic 
number that takes the turtle all the way around and 
back to the same heading, no matter what shape it is 
going around. You also know that the amount of the 
turn at each corner is 360 divided by the number of 
turns. Remember too that Logo will do all the work of 
dividing for you. You may use 360/4 as the input for 
your turn in SQUARE4, for instance. 
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In other words, the SQUARE4 procedure could be 
written 

TO SQUARE4 :LENGTH 
REPEAT 4 [FD :LENGTH RT 360/4] 

END 

The 4 in both places is the number of turns. SQUARE4 
now has a variable input for the length of the side and 
one other number that might be changed, the number 
of turns or sides. What if we made that number a vari¬ 
able, too?The procedure would repeat the side-and- 
turn sequence that number of times, and would divide 
360 by the number for the turn. Sounds all right, but it 
wouldn’t draw a square. It would draw a many-sided 
figure, (called a polygon) with the number of sides you 
chose when you ran it. Call it POLY. 

POLY will need two names for the variable inputs, and 
they should clearly describe what they are for. 

:LENGTH would be fine for the length of the side 
again, and you could use :TURNS for the number of 
turns (or sides). 

Both variable names must appear in the title, to pass 
the numbers in to where they are used in the proce¬ 
dure. Choose the order you will remember best. They 
do not have to appear in the title in the order in which 
they are used in the procedure, but, when you run 
POLY, the numbers must be typed in the same order as 
the variables which represent them in the title. POLY 
100 4 will be very different from POLY 4100. 
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So POLY could look like this: 

TO POLY :LEN :TURNS 
REPEAT :TURNS [FD :LEN RT 360/:TURNS] 
END 



POLY 


Projects: Regular Polygons 

Experiment with different inputs to POLY. Write down 

the ones you like. 

1. What is the difference between POLY 100 4 and 
POLY 4100? Try them both. 

2. Try POLY with the same :LENGTH input and a lot 
of different numbers for :TURNS. 

3. Keep :TURNS the same and try a lot of different 
numbers for :LENGTH. 

4. Make a design using POLY twice, with a different 
number of sides (:TURNS) each time. 

5. Use POLY to make a triangle. 

6. What is the largest number you can use for turns? 
(Hint: hide the turtle for a quicker trip.) 

Another View of POLY 

Look back at the procedures in which you used divi¬ 
sion to help you draw 3,4, 5,6, and 7-sided figures. 
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They probably look a lot alike. In English you might 
describe them this way: 

To draw a shape of some specified number of sides, 
repeat for each side: go forward some distance and 
turn right 360 divided by the number of sides 

Let’s use a forward distance of 50. The English trans¬ 
lates to Logo: 

TO SHAPE :NUMBER.OF.SIDES 
Type as one line REPEAT :NUMBER.OF.SIDES 

[ FD 50 RT 360/:NUMBER.OF.SIDES ] 

END 

(Note that the REPEAT statement must be typed on 
one line.) Type in SHAPE and try it with various in¬ 
puts. Try 

SHAPE 3 
SHAPE 4 

We can also make shapes of various sizes by making 
the forward distance a variable. Replace the 50 with 
the variable :DIST and add it to the title: 

TO SHAPE :NUMBER.0F.SIDES :DIST 
Type as one line REPEAT ! NUMBER.OF.SIDES 

[FD :DIST RT 360/:NUMBER.OF.SIDES] 

END 

Try 

SHAPE 3 50 and SHAPE 50 3 
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This procedure produces the same designs as poly 
(above). The number of sides will be the same as the 
number of turns. 

Circles 

So far we have drawn only straight lines. How does 
the turtle draw curves? When you consider that ail it 
can do is step and turn, then it must be some combina¬ 
tion of steps and turns in curves as well as in straight- 
sided figures. Experiment with small steps and small 
turns. Use REPEAT with your little steps and turns to 
avoid exhaustion. Try some combinations in IMMEDI¬ 
ATE mode, then make procedures of the combinations 
you like. 

Some things to remember: 

Jr • the turtle draws faster when hidden (HT) 

• <CTRL> G stops the turtle, whatever it is doing 

• you know how far the turtle must turn to finish back 
where it started 

Projects: Curves 

Try these first, then make procedures of the ones you 
would like to be able to use. Give your procedures 
descriptive names, for instance, a 6th-of-a-circle arc to 
the right might be ARCR6. 

1. Use REPEAT to draw a circle, then without clearing 
the screen, draw another circle with steps twice as 
big as in the first one. Draw another with the turn 
twice as big. 
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2. Draw a circle to the right and an identical one to the 
left. 

3. Figure out the diameter (distance across) of the last 
circle. 

4. Draw a quarter-circle arc to the right. 

5. Draw another quarter-circle arc with steps twice as 
big as the one in #4. 

6. Draw a 6th-of-a-circle arc to the left, then a 6th-of-a- 
circle arc to the right. (Hint: use division, and let 
Logo do it for you) 

7. Write a procedure that uses an arc procedure and 
straight lines to draw a picture or design. 

8. Do these projects using variable inputs for the step 
size and the number of degrees. 

See the section on Procedures for a way to develop an 
arc procedure. There are also several demonstration 
arc and circle procedures on the Utilities Disk. See the 
Utilities Disk section. 

Using Subprocedures 

A procedure used as a command in another procedure 
is called a subprocedure. The procedure which uses it 
is a superprocedure. You have already used SQUARE 
as a subprocedure when you called it in the su¬ 
perprocedure SQ, and, if you did the projects, you 
used procedures as subprocedures to draw towers, 
windows, and a design with arcs and lines. 

A subprocedure is useful when you want to use a pro¬ 
cedure as a new primitive in a variety of procedures, or 
several times in one procedure. You could write a pro¬ 
cedure to do one side of a square (such as FD 73) and 
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one turn (RT 90). If you called it SQUARESIDE, then 
your square procedure would look like this: 

TO SQUARE2 
SQUARESIDE 
SQUARESIDE 
SQUARESIDE 
SQUARESIDE 
END 

(or perhaps) 

TO SQUARE2 
REPEAT 4 [SQUARESIDE] 

END 




SQUARE2 
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Any Logo procedure can be a subprocedure. In addi¬ 
tion, subprocedures may have subprocedures of their 
own. 

For example: 

SQUARE2 uses SQUARESIDE as a subprocedure. 

We write WINDOW which uses SQUARE2 as a subpro¬ 
cedure. 


SQUARE2, which has SQUARESIDE as a subproce¬ 
dure, is now also a subprocedure. 

We write HOUSE, which uses WINDOW, and TOWN, 
which uses HOUSE... 


We can build as far as we want; 
all the procedures except the top one (TOWN) will be 
used as subprocedures, and all but the bottom one 
(SQUARESIDE) will use subprocedures. All but TOWN 
and SQUARESIDE will both use and be subprocedures. 


ffl 


I®1 


i 

WINDOW 

HOUSE 

TOWN 



The point of this exercise is to show that even now you 
are writing procedures you can use later on. As you 
write your way through the tutorial, note the proce¬ 
dures that may be particularly useful to you as subpro¬ 
cedures. You might even want to file them separately 
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after a while, in a file called NEW.PRIMITIVES (Logo 
allows you to use periods in your procedure and file 
names to connect words.) Your arc procedures are 
good examples of useful primitive-like subprocedures. 


Non-stop Procedures: 
Introduction to Recursion 


Your procedures up to now have been very well-be¬ 
haved and have stopped when you told them to. Now 
let’s try a type of procedure that simply doesn’t know 
when to stop. 


As you know, a Logo procedure can use any Logo com¬ 
mand, whether it is a primitive or a procedure. This 
includes a procedure being able to use itself. 


The ability of a procedure to call itself is called recur¬ 
sion. We shall work up to the power of recursion with 
some simple examples. What happens when you tell a 
procedure to do itself? Let’s try it with a square pro¬ 
gram: 

TO SQUARE3 :LENGTH 
FD :LENGTH 

RT 90 (Stop me with <CTRL> G) 

SQUARE3 :LENGTH 
END 


What have we told SQUARE3 to do? 

1. Draw a side and do a turn 

2. Do SQUARE3 

1. Draw a side and do a turn 

2. Do SQUARE3 

1 . ... 
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Only a <CTRL> G typed at the keyboard will stop this 
runaway square. It will go over and over the same 
track until you stop it. Not very interesting. 

But what would happen if there was a side and a turn 
that made a design which would not go over itself? 
Change the amount of the turn. Try a little more or less 
than the 90 used for a square. Try, for example, 

O FD :LENGTH 
RT87 

Projects: Simple Recursion 

1. Write a recursive procedure that draws a little figure 
then calls itself. 

2. Write a recursive procedure that uses arcs and lines. 

3. Use your triangle procedure in a recursive proce- 
dure. 

4. Write a recursive procedure to draw a star. 

Recursion: Changing the Input 
WRAP, NO WRAP, CONTINUE (CO) 

Another interesting possibility is that of changing the 
length of the side each time it is drawn. Remember, 
wherever Logo requires a number, there are several 
ways to give it one. We have tried actual values (100 for 
instance) and right now we are using a variable 
(:LENGTH). The next kind of number to try is a number 
which Logo will produce for us by doing some 
arithmetic, for instance, :LENGTH + 3. 
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SQUARAL 


TO SQUARAL :LENGTH 
FD :LENGTH 
RT 90 

SQUARAL :LENGTH + 3 
END 

When SQUARAL calls SQUARAL, it uses a little big¬ 
ger number for the length of the side. Now, even with 
a turn of 90, the design will not repeat itself on the 
same path. 

What happens when you run this procedure: Type 
SQUARAL 5 

1. The turtle moves FD 5 for the first side 
and turns right. 

2. Logo runs SQUARAL 5+3. 

SQUARAL 8 

1. The turtle moves FD 8,3 steps more 
than the first side and turns. 

2. Logo runs SQUARAL 8+3. 

SQUARAL 11 

1. The turtle moves FD 11 and turns. 

2. Logo runs SQUARAL 11 + 3. 
and so on. 

The second side, and each side after it, will be 3 steps 
longer than the previous side, and the picture will 
clearly not be a square. 
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Before long, the line spills off the edge and 
reappears on the other side of the screen. 

Logo is in WRAP mode, where the lines wrap 
around the screen rather than stopping at the 
edge. This can make interesting effects, partic¬ 
ularly with PENCOLOR 6, which reverses the 
color when lines cross. 

Remember, you can use FULLSCREEN or 
<CTRL> F, SPLITSCREEN or <CTRL> S, 
and TEXTSCREEN or <CTRL> T to change 
the amount of drawing space showing on the 
screen. 

To make Logo stop the procedure when the 
line threatens to get out of bounds, type NO- 
WRAP to put Logo into NOWRAP mode. 

Now, no matter where the turtle is when you 
run the procedure, when the design gets too 
big for the screen, Logo will stop it. (There 
are more elegant ways to stop recursive proce¬ 
dures mentioned later on. See Stopping With 
Style.) 

The commands WRAP and NOWRAP, like all 
other Logo commands, can also be used in 
procedures. Whenever they are used, each 
stays in effect until the other is used, or until 
you exit DRAW mode. 
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Projects: Changing Inputs 

Make the changes suggested below and give each 

changed version a new name. Run each version with 

several different inputs, large and small (SQUARE 10, 

SQUARE 100 for instance) 

1. Change the amount added to :LENGTH in 
SQUARAL make it large; make it very small. 

2. Subtract an amount from :LENGTH in SQUARAL 
instead of adding to it. 

3. Change the size of the turn a little bit. 

4. Multiply :LENGTH by a number. Keep trying until 
you find one you like. Remember, use the star (-)£) for 
multiplication. (Hint: you can use decimals such as 
1.1 or 1.5) 

5. Try all of your procedures in WRAP mode and NO¬ 
WRAP mode. 

6. In WRAP mode, try your procedures with PENCO- 
LOR 6 (PC 6). 

7. Write a procedure which takes a variable input and 
draws one square. (Hint: use REPEAT) Then write a 
recursive procedure that uses the square procedure 
as a subprocedure and draws a series of squares 
which get bigger and bigger. 
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Stopping With Style: IF-THEN , STOP 


Logo can make choices based on what you tell it to do. 
You can write IF (something) is true, THEN (do some¬ 
thing else) (STOP for instance). (If it is not true, it will 
go directly to the next line. If it IS true, and the instruc¬ 
tion is not STOP, it will execute the instruction and 
THEN go to the next line.) 

For example, you would like to be able to specify the 
number of times a recursive procedure executes, and 
specify a different number every time you run it. Make 
the procedure count down from the number you give 
it, and test the count each time it executes with 

IF TIMES = 0 THEN STOP 

Here is a procedure that draws a square, turns the turtle 
a little, and does it again. 

TO DESIGN TIMES 
IF TIMES = 0 THEN STOP 
SQUARE 100 
RT 45 

DESIGN TIMES—1 
END 

This is what happens when you type 
□ DESIGN 4 

1. Logo tests :TIMES (4) to see if it is zero. 

2. Logo runs SQUARE and turns the turtle 

3. Logo calls DESIGN 4—lor DESIGN 3 
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DESIGN 


DESIGN 3 

1. Logo tests :TIMES (3) to see if it is 0 

2. Logo runs SQUARE and turns the turtle 

3. Logo calls DESIGN 3—1 or DESIGN 2 

DESIGN 2 

1. 1. Logo tests :TIMES (2) to see if it is 0 

2. Logo runs SQUARE and turns the turtle 

3. Logo calls DESIGN 2—1 or DESIGN 1 

DESIGN 1 

1. tests :TIMES (1) to see if it is 0 

2. runs SQUARE and turns the turtle 

3. calls DESIGN 1-1 or DESIGN 0 

DESIGN 0 

1. Logo tests :TIMES (0) to see if it is zero 
and stops. :TIMES = 0 is finally true. 

Control is passed back to each level in turn and the 
procedure is done. This aspect of recursion will be 
covered in the next section. 

What happens when your friend tries to be funny and 
runs DESIGN with a negative number?(Ah, you tried it 
... Well, remember <CTRL> G.)You will be pleased to 
know that you can test for that also. In fact, you can 
put as many tests as you wish in your procedure. You 
can test for that negative number by using one of the 
two other conditions, less than (<) or greater than (>). 
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To cover both situations, your negative friend and the 
normal ending of the procedure, change your test: 

TO DESIGN TIMES 
IF TIMES < 1 THEN STOP 
SQUARE 100 
RT 45 

DESIGN TIMES—1 
END 

Now DESIGN will stop when :TIMES gets to 0 and 
will never start if :TIMES is less than 0. 

The procedure can still have variable inputs for other 
values, such as the length of the side of the square: 

TO DESIGN TIMES :LENGTH 
IF TIMES < 1 THEN STOP 
SQUARE :LENGTH 
RT 45 

DESIGN TIMES—1 :LENGTH 
END 

You can even change the length each time it is called if 
you wish by incrementing it as it is in SQUARAL. 

NOTE: Be sure the variable you test in your procedure 
will eventually reach the test value. For example, in 
our first version of DESIGN, :TIMES would never have 
reached 0 if it had started out negative. The first one, in 
fact, will also fail with a decimal such as 10.3. 

If you don’t happen to think of this possibility, the 
procedure may go on and on and on and you won’t 
know why. 
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This is a common problem in writing procedures: the 
computer always does what you TELL it to do, whether 
or not it’s what you want it to do. BUGS creep into the 
procedures of the best of programmers. 



Bugs can be fun. You can learn from them, and some¬ 
times what the computer does is more interesting than 
what you had intended. 


Projects: Testing and Stopping 


1. Try replacing the 45 in RT 45 with something that 
depends on :TIMES, such as 4 * :TLMES. 

2. Write a procedure to draw a tower of smaller and 
smaller squares, choosing the number of squares 
when you run it. 

3. In DESIGN, change the input for RT to a variable. 
(Remember to add the variable name to the proce¬ 
dure title) 


Using the Full Power of Recursion 


To see Logo execute procedures step by step, 
use TRACE, described in the section on de¬ 
bugging in this chapter, the Appendix, and in 
the Technical Manual. 

The results of the recursive procedures shown so far 
could have been achieved with non-recursive proce¬ 
dures. Each one so far has done something and then 
called itself to do essentially the same thing again. 
Except for DESIGN, the procedures did not stop by 
themselves, so they never had the chance to return to 
the top level. 
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The power of recursion, and what makes it different 
from iteration (repetition), is its ability to come back 
from the last call to itself (called the deepest or lowest 
level), finishing a job at each level as it returns. 

This will be a new concept to many. Logo is one of the 
few computer languages with this capability. 

The following comparison will illustrate this: 

TO COUNT :NUMBER 
IF :NUMBER > 2 STOP 
PRINT :NUMBER 
COUNT :NUMBER + 1 
END 

TO COUNT.PLUS :NUMBER 
IF :NUMBER > 2 STOP 
PRINT :NUMBER 
COUNT.PLUS :NUMBER + 1 
PRINT :NUMBER 
END 

Small numbers Eire used to permit full step-wise 
explanation. 


COUNT works in the same way as DESIGN. Type 

COUNT 1 and Logo will respond 
1 
2 

COUNT.PLUS, as its name suggests, does more. This is 
what happens when you type 
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COUNT.PLUS 1 

1. Logo tests to see if :NUMBER (1) greater than 2. 

2. Logo prints :NUMBER (1). 

3. Logo calls COUNT.PLUS rNUMBER +1 (2). 

4. (The last statement, PRINT :NUMBER, is not exe¬ 
cuted.) 

COUNT.PLUS 2 

1. Logo tests to see if :NUMBER (2) >2. 

2. Logo prints :NUMBER (2). 

3. Logo calls COUNT.PLUS :NUMBER +1 (3). 

4. (The last statement, PRINT :NUMBER, is not 
executed.) 

COUNT.PLUS 3 

1. Logo tests to see if :NUMBER (3) > 2. 

2. Logo stops and returns control to the proce¬ 
dure that called COUNT.PLUS 3, which was 
COUNT.PLUS 2. 

COUNT.PLUS 2 

5. Logo executes the next statement in COUNT¬ 
.PLUS 2, which is PRINT :NUMBER. Prints 2. 

6. Logo stops and returns control to the procedure 
that called COUNT.PLUS 2, which was COUNT¬ 
.PLUS 1. 

COUNT.PLUS 1 

5. Logo executes the next statement in COUNT.PLUS 
1, which is PRINT :NUMBER. Prints 1. 

6. Logo stops and returns control to the procedure 
that called COUNT.PLUS 1, which was the main 
Logo command level. 
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The diagram shows how all copies of COUNT.PLUS 
exist at once, each with its own private value for 
:NUMBER: 


COUNT.PLUS 




COUNT.PLUS 


:NUMBER 


IF NUMBER > 2 STOP 

PRINT :NUMBER 

COUNT.PLUS :NUMBER + 1 

PRINT :NUMBER 

prints 1 
and stops 


:NUMBER 


IF NUMBER > 2 STOP 

PRINT :NUMBER 

COUNT.PLUS :NUMBER +1 

PRINT :NUMBER 

prints 2 
'and stops’ 


COUNT.PLUS 


:NUMBER 


IF :NUMBER > 2 STOP 
PRINT :NUMBER 
COUNT.PLUS :NUMBER +1 
PRINT :NUMBER 


just stops 


The process of recursion is based on one idea: 


When a procedure (A) calls another procedure (B), the 
calling procedure (A) puts on hold any instructions 
which come after the call. When the procedure (B) 
which is called stops, the calling procedure (A) con¬ 
tinues with the rest of its instructions after the call to 
(B). 


What makes recursion so powerful is that this idea 
applies also to (B) and any procedure (B) calls, and any 
procedure that THAT procedure calls... 


And all of these copies of the procedure co-exist, each 
with its private portfolio of values. All copies are used 
and exist as if they were completely different proce¬ 
dures. 
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An excellent example is the procedure SQS which 
produces squares with half-size squares on the corners: 



TO SQS :LENGTH 
IF :LENGTH < 5 STOP 

REPEAT 4 [FD :LENGTH SQS :LENGTH/2 RIGHT 90] 
END 


TO SQR :LENGTH 
IF :LENGTH < 5 STOP 
REPEAT 4 [FD :LENGTH RT 90] 

SQR :LENGTH/2 
END 

Note the difference the placement of the recursive 
call makes in SQR and SQS. 

The procedure EXPONENT in the Computa¬ 
tion chapter and the procedure TET on the Utilities 
disk (see the APPENDIX) are two other examples of 
good recursive procedures. See also Recursion in Mu¬ 
sic in the music chapter. 

See chapter 2 in LOGO FOR THE APPLE II, by Profes¬ 
sor Harold Abelson, M.I.T., for a further discussion of 
recursion. 


Recursion Projects 

1. Write a set of procedures which draw successively 
smaller houses. Use subprocedures for the parts of 
the house. 

2. Write a procedure to draw a binary tree. A binary 
tree is a v-shaped tree with a smaller v-shaped tree 
on each tip. Develop the procedure for the basic V, 
then determine where in the procedure you would 
insert a recursive call to itself to draw a smaller tree, 
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To stop the procedure, use a test similar to the one 
used in SQS. 

3. Write a procedure that draws a series of successively 
larger fish, each totally within the next larger. 

Special Effects and New Utilities 

Remember that PC 6 changes black to white and white 
to black when turtle tracks cross. Try it with SQUARE3 
and SQUARAL. 

TO SQUARE3 TEN TO SQUARAL :LEN 
FD TEN FD TEN 

RT 90 RT 90 

SQUARE3 TEN SQUARAL TEN + 3 
END END 

Clear the screen, hide the turtle, set your pencolor to 6 
(the reversing color), type SQUARE3, and hit <CTRL> 
F so you can watch on the full screen: 

DRAW HT PC 6 SQUARE3 <CTRL> F 

If you like the effect, write a procedure which will do 
it for you at the stroke of a single name. Give the proce¬ 
dure a name and the commands in the line above (use 
the word FULLSCREEN for the <CTRL> F): 

TO SUPERSQ 

DRAW HT PC 6 FULLSCREEN SQUARE3 
END 

Type SUPERSQ and sit back. 

You could also make a separate procedure of the 
SETUP part. Make this one of your own utility proce¬ 
dures. 
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TO SETUP TO SUPERSQ 

DRAW SETUP 

HT SQUARE3 

PC 6 END 

FULLSCREEN 
END 



Since Logo lets you use primitives and proce¬ 
dures the same way, you can build your own 
file of new primitives, utility procedures that 
do the special things that you want to do. 

This might even include procedures like C 
which has the single command CATALOG, 
simply to save typing... 


If you can change a color once, you can change it again, 
both background and pencolor. You can make the 
change once in a great while, or you can flash from 
one to another. 


Here’s a flashy example (NOTSQ is not quite a square) 
TO NOTSO 

REPEAT 4 [FD 85 RT 85] 

END 

TO FLASH.NOTSQ 
PC 6 

BG 0 NOTSQ 
BG 1 NOTSQ 
BG 2 NOTSQ 
FLASH.NOTSQ 
END 

FLASH.NOTSQ sets the pencolor to 6 (reversing), the 
background to black, and runs NOTSQ, four lines that 
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don’t quite meet. The background changes to white, 
four more lines are drawn, the background changes to 
a color, four more lines, then the whole procedure 
repeats endlessly. Each time a line crosses a line, the 
color of that spot is reversed. 

RANDOM Numbers, Numbers from 
Arithmetic Operations, Inputs, Outputs 


The Logo primitive RANDOM will give you a number, 
chosen at random from the group you specify. You 
specify the group from 0 to your number by giving 
RANDOM the next higher number. For instance, RAN¬ 
DOM 7 will choose a number from 0 to 6 (just what PC 
and BG need). 



The number RANDOM chooses is called its OUTPUT. 
If you type RANDOM 7 at the keyboard, Logo will 
respond with RESULT: 4 (or some other number from 0 
to 6), just as it printed RESULT: 90 when you typed 
360/4. Both RANDOM and the arithmetic operation 
produce a result, that is, they each put out a number, 
which is called an OUTPUT. 


The number RANDOM uses is its INPUT. You can 
never leave out an input: the command needs it to 
work. On the other hand, in IMMEDIATE mode, Logo 
will print an output as a RESULT sometimes. However, 
any time Logo expects to go on, as in a procedure or a 
REPEAT command, it needs to know what to do with 
that output. Try typing 
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REPEAT 4 [RANDOM 8] 
and Logo will complain. 
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This is equivalent to typing 
REPEAT 4 [5] 

Give RANDOM’S OUTPUT to something that requires 
an INPUT (such as FORWARD or PRINT), and you are 
in business: 

REPEAT 4 [FORWARD RANDOM 8] 

Oohlala... it works. 

To make the turtle’s pen or the background take on a 
random color, use RANDOM 7 instead of the number. 
FLASH.NOTSQ could now be 

TO FLASH.NOTSQ 
PC 6 

BG RANDOM 7 
NOTSQ 

FLASH.NOTSQ 

END 


(You have the choice of editing the old FLASH.NOTSQ 
or typing ERASE (or ER) FLASH.NOTSQ and typing 
the new version.) 

Here FLASH.NOTSQ sets the pencolor to reverse, 
picks a random background color, runs NOTSQ, then 
does the same three steps again and again until you 
stop it. 

To avoid using the reversing (eraser) color #6, use 
RANDOM 6, which will select numbers from 0 to 5. To 
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avoid using black as well (color #0), use 1 + RANDOM 
5. This gives you a random number from 1 to 5 because 
1 is always added to a random number from 0 to 4. 

Try adding one of these lines to one of your procedures: 

PC 1 + RANDOM 5 
BG 1 + RANDOM 5 

Note that the number used with PC (PENCOLOR) and 
BG (BACKGROUND) is the result of an arithmetic 
operation again, addition this time. Recall that some of 
the turns in your shape procedures were calculated by 
division. 

Any time a number is required in Logo, it can be given 
as the result of an arithmetic operation. In Logo, use + 
and — for addition and subtraction (as usual), the slash 
(/) for division, and the star (^) (or asterisk) for multi¬ 
plication. There are rules you need to know if you use 
more than one operator (H—/^) at a time; see the COM¬ 
PUTATION chapter for details on that. 

Projects Using Random 

1. Substitute FORWARD RANDOM 100 for the side 
in SQUARE3. 

2. Write a REPEAT statement using a FORWARD com¬ 
mand and a random turn from 0 to 360 degrees. 

3. Write a recursive procedure using a FD command 
and a random turn between 90 and 180 degrees. 

4. Try some other ranges for turns; choose the most 
interesting to keep as a procedure. 
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Debugging by printing values: PRINT (PR) 



Logo is one of the easier computer languages to debug 
(get rid of the errors, called bugs) because large pro¬ 
grams are composed of small procedures. It is a lot 
easier to debug a small procedure than a long, compli¬ 
cated program. Always make sure your procedures are 
debugged (run correctly by themselves) before you use 
them in other procedures. 


TO DESIGN :TIMES :LENGTH 
IF :TIMES = 0 THEN STOP 
SQUARE :LENGTH 
RT 45 

DESIGN :TIMES—1 :LENGTH 
END 


In DESIGN, if you type 
DESIGN 6.5 100 

the procedure will never stop. 

To find out why, we want to check out :TIMES. It 
would be nice to print it out each time around. 

Use the Logo PRINT (PR) command to check on the 
value of :TIMES. Type 

TO DESIGN 

and add this line (in EDIT mode) just before the test 
(before IF...): 

PR TIMES 
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(You can remove it after you have debugged the proce¬ 
dure.) 

DESIGN now looks like this: 

TO DESIGN :TIMES :LENGTH 
PR :TIMES 

IF :TIMES = 0 THEN STOP 
SQUARE :LENGTH 
RT 45 

DESIGN :TIMES—1 :LENGTH 
END 

Type <CTRL> C to leave EDIT mode, then type 
DESIGN 6.5 100 

As it runs DESIGN, Logo will draw the design in the 
graphics part of the split-screen, and will print the 
values of :TIMES on the four lines of the text part of 
the screen. 

Because the values are not whole numbers, if you look 
quickly, you will see them get smaller and smaller and 
then become negative and get larger and larger. In 
other words, :TIMES has passed zero and skipped the 
test because :TIMES was never exactly zero. 

Now you know that the bug is in the test that failed to 
account for this possibility. You can either change the 
test or add another test. The best thing to do is change 
the test, since two tests are not really necessary. How¬ 
ever, when you change the test, be sure to try out 
DESIGN with every possibility you can think of. 
ALWAYS test your procedures using all of the 
possibilities you can think of. 
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Debugging Using PAUSE; <CTRL> Z 
CONTINUE (CO) 

PAUSE or <CTRL> Z stops a procedure in such a way 
that you can start it again. While it is stopped, you can 
find out where the (hidden) turtle is by typing SHOW- 
TURTLE (or ST), hide the turtle with HT, print the 
procedure out with PO, PRINT variable values, or do a 
number of other things. To resume running the proce¬ 
dure, type CONTINUE (or CO). 



There is also another possibility: remember that friend 
of yours who likes negative inputs? What happens to 
DESIGN if :LENGTH is negative? What happens to 
:TIMES? What happens to the friend? 


Well, if :LENGTH is negative, the turtle just backs 
around in the opposite direction. Logo knows all about 
negative lengths. 


And the friend? Unless he knows how to give that 
negative input, Logo will give him a (no doubt helpful) 
error message. 


A negative input for the second variable must be in 
parentheses to show that it is an input and not a num¬ 
ber to be subtracted from the first variable, for, as you 
will recall, inputs can be the results of arithmetic oper¬ 
ations. Type 


DESIGN 5 (-100) 


Let’s set up a situation where the size of the turn be¬ 
tween squares depends on the number of :TIMES the 
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square is drawn, so we can have a complete design. To 
do this, we replace the 45 with 360 / :TIMES: 

TO DESIGN TIMES :LENGTH 
IF TIMES < 1 THEN STOP 
SQUARE :LENGTH 
RT 360/TIMES 
DESIGN TIMES—1 :LENGTH 
END 


Now we have two things which depend on :TIMES: 
:TIMES itself, which must always be positive, and the 
turn between squares, which could be either positive 
or negative. A negative turn just goes around in the 
other direction. 

How can we fix it so a negative number for :TIMES 
will give us a positive value for :TIMES, but keep the 
negative turn? 

To do this, we must write a procedure to test :TIMES, 
then call DESIGN with the appropriate values. We also 
need to use a variable for the turn, so we can keep it 
negative when :TIMES changes to positive. DESIGN 
becomes 

TO DESIGN TIMES :LENGTH TURN 
IF TIMES < 1 THEN STOP 
SQUARE :LENGTH 
RT TURN 

DESIGN TIMES—1 :LENGTH 
END 

COMPLETE.DESIGN is the procedure which handles 
the details: 
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Type as one line 


TO COMPLETE.DESIGN TIMES :LENGTH 
(IF TIMES < OTHEN 

DESIGN-:TIMES :LENGTH 360/:TIMES 
ELSE 

DESIGN :TIMES :LENGTH 360/:TIMES 

END 


This is a one-line procedure, shown here on several 
lines for clarity. It must be typed as one line. 


This says that if :TIMES is negative, change it to posi¬ 
tive when you call DESIGN, otherwise leave it alone. 

In both cases, :TURN uses :TIMES directly, so if 
:TIMES is negative, :TURN is negative; if :TIMES is 
positive, :TURN is positive. 

More on Debugging: TRACE, NOTRACE 

Logo provides a detective system to trace through the 
procedure with you as the procedure is executed. Logo 
prints each line on the screen, you press <RETURN>, 
and Logo executes the line. Type TRACE to activate 
TRACE mode, NOTRACE to get out of it. See the Ap¬ 
pendix for a full description of TRACE and NOTRACE. 



More About the Turtle: 

TURTLESTATE (TS), HEADING, 
SETHEADING (SETH), TOWARDS 

Logo primitives which give information about the 
turtle are useful for testing .TURTLESTATE is a good 
example, giving a list of four pieces of information. 
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Type 

TURTLESTATE and Logo will reply 
RESULT: [TRUE TRUE 0 1] 

if 1. It is TRUE that the pen is down 

2. It is TRUE that the turtle is visible 

3. Background color is 0 (black) 

4. Pencolor is 1 (white) 

Refer to the chapter on Words and Lists for how to test 
against a member of a list. You can also print the infor¬ 
mation, i.e. PRINT TURTLESTATE. 

Logo uses HEADING for the direction the turtle is 
pointing. Type 

HEADING and Logo will reply 
RESULT: 45.007 

or whatever number of degrees the turtle has turned to 
the right (clockwise) from facing up. 

PRINT HEADING, whether used in a procedure or not, 
will print the number alone. You can use HEADING to 
stop a procedure after a turn. Example: 

IF HEADING < 45 STOP 

Use SETHEADING (SETH) to tell Logo what direction 
you want the turtle to face: 
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SETHEADING 45 

turns the turtle as if it had turned 45 degrees to the 
right from facing straight up. 
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To change the turtle’s heading by a specific amount, 
use both: 

SETHEADING HEADING + 5 

will turn the turtle 5 degrees to the right. 

TOWARDS turns the turtle to face a point designated 
by its coordinates: 

SETHEADING TOWARDS 100 (-100) 

turns the turtle to face a point 100 turtle steps to the 
right (x = 100) and 100 turtle steps down (y = -100) 
from the center of the screen. Note that here, too, the 
negative input is in parentheses to avoid confusion 
with subtraction. Another way to write a negative 
second input is to write it as zero minus the number. 
Example: 

SETHEADING TOWARDS 100 0-100 

Position When You Want St: XCOR, YCOK 9 
SETX, SETY, SETXY 

The screen is a grid, with X going across and Y going 
up and down. The HOME position is where both x and 
y are zero. X get larger to the right, Y gets larger going 
up. X is negative to the left of HOME, Y is negative 
below it. 

XCOR and YCOR give the X and Y coordinates of the 
turtle’s position on this grid. Type XCOR, YCOR, 
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PRINT XCOR, or PRINT YCOR and Logo will print the 
X or Y coordinate. You may also test against either: 

IF XCOR = 150 STOP 

To move the turtle to a specific coordinate position, 
use SETX, SETY, or SETXY. Only the position will 
change; the turtle will not change its heading. Type: 

SETX 100 

to move the turtle across to x = 100 
SETY 100 

to move the turtle up or down to y = 100 
SETXY 100 100 

to move the turtle to the point x = 100, y = 100 
SETXY 100 (-100) 

to move the turtle to x = 100, y = —100 

Use these commands together to move the turtle a 
specific distance: 

SETX XCOR + 5 

moves the turtle 5 steps to the right without changing 
its heading. 

SETXY XCOR + 5 YCOR - 5 

moves the turtle 5 steps to the right and 5 steps down, 
keeping the same heading. 

SETXY is used in the Computation chapter to draw 
curves using their equations. To see how to use SETXY 
with joysticks and paddles, see PADDLE in the Techni¬ 
cal Manual. 
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INSTANT: 

Logo Turtle Graphics for the Non-reader 

Your Logo system disk contains a collection of proce¬ 
dures which makes Logo turtle graphics accessible to 
young children. The INSTANT system uses single 
character commands which are equivalent to longer 
Logo commands. You can use colored stickers to iden¬ 
tify the appropriate keys for use with INSTANT. 

To use INSTANT, turn on the Apple with the Logo 
Language disk in the disk drive. When Logo is loaded 
and displaying the question-mark prompt (?), put the 
Utilities Disk in the disk drive and type 

READ "INSTANT (with the “) 

Logo will read in the file of procedures used by IN¬ 
STANT, identifying each as defined. Type 

INSTANT (without the “) 

The screen will display the commands used in IN¬ 
STANT as follows: 

F MOVES THE TURTLE FORWARD 
R TURNS IT RIGHT 
L TURNS IT LEFT 
D DRAW (CLEARS THE SCREEN) 

U UNDO (ERASES LAST COMMAND) 

N NAMES THE PICTURE 
P SHOWS A PICTURE, ASKS FOR ITS NAME. 

? GIVES HELP 

PRESS ANY KEY TO CONTINUE. 
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When you press a key, the list goes away, the turtle 
appears, and the blinking cursor moves to the lower 
left portion of the screen. 

Type F to move the turtle forward.Turn the turtle with 
either R or L. 

D restores the screen to its original condition, erasing 
the whole picture. 

To erase just the last command, type U. Logo will re¬ 
draw the picture without the most recent command. 

Animation Of A Sort 



U makes it possible to do some interesting animation, 
since every motion of the turtle is relived in the re¬ 
drawing, even though it is not visible in the finished 
drawing. For a Lively Line, try typing 


FRLLR FRLLR FRLLR U 


The idea is to wave the turtle back and forth every 
once in a while, perhaps turn it completely around; let 
it be indecisive about making a turn... It all comes out 
again when you type the U. 

To name a picture, type N and the name. (Names may 
be single letters other than those used as INSTANT 
commands.) 
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To get a picture back, type P and its name. 

Typing ? produces the list again, without damaging 
the picture. 
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For disk storage of procedures created using INSTANT, 
you must leave INSTANT and return to Logo: 

1. Type <CTRL> G to return to Logo. 

2. Type <CTRL> T for the full screen of text (TEXT 
mode) 

3. Type POTS to list the procedures you have created 
(plus the system procedures you saw defined as 
they were read in) 

4. To write all of the listed procedures to your disk, 
put your procedure-storage disk in the disk drive, 
and type 

SAVE "INSTANT. 

All the procedures listed will be written to your disk. 

To save a picture on the disk, return to Logo with 
<CTRL> G and type SAVEPICT “ and the name you 
want for your picture. Example: 

SAVEPICT "PUPPY 

will save the picture on the screen under the name 
PUPPY on the disk. 

Type 

INSTANT 

to return to the INSTANT system. 

In subsequent sessions using INSTANT, READ “IN¬ 
STANT from your own disk instead of the Utilities 
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disk. You will have everything you need to run IN¬ 
STANT as well as all previously written original proce¬ 
dures. 


The Terrapin Turtle 

Use of the Terrapin floor-turtle, available from Terrapin, 
Inc., is described under TCL in the Utilities Disk sec¬ 
tion of the Appendix. The additional Logp primitives 
which the physical robot turtle uses for its horn, light, 
and touch-sensors are on the Utilities Disk. 
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FUNDAMENTALS OFLOGO MUSIC 


The music section of this tutorial assumes that you are 
familiar with your Apple keyboard and some Logo 
primitives (commands Logo already knows). For expla¬ 
nations of things not explained in detail here, see the 
Graphics chapter (or the chapter referenced in the text) 
in this tutorial. In addition, the Technical Manual lists 
all Logo primitives and their uses. 

Some background: a Logo procedure is a series of in¬ 
structions to the computer stored for recurrent use. A 
procedure can be used in other procedures just as if it 
were a Logo primitive. 

Procedures are stored in files on disks. The SAVE com¬ 
mand stores the entire contents of the workspace to the 
disk in the file named with it, as shown in Saving Your 
Procedures. Care should be taken to SAVE work BE¬ 
FORE turning the computer off. The workspace is 
cleared when the computer is turned off. 

Preparation: READ 

The Utilities Disk contains the procedures required to 
write music in Logo, as well as the demonstration 
procedures we shall use. Turn the computer on with 
the Language Disk in the disk drive to start Logo. When 
the ? prompt appears, remove the Language Disk and 
put in your copy of the Utilities Disk. (See the Appen¬ 
dix for instructions for copying the Utilities Disk.) 

Type 

READ "MUSIC <RETURN> (only one quote) 
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(Logo does not hear what you type until you press the 
<RETURN> key.) 


Wait for the red light on the disk drive to go off and 
the question mark prompt to appear on the screen. 
Then type 


SETUP<RETURN> 


Wait again until the red light goes off. This time it will 
take quite a while before it even goes on. 

When the light is off, remove the Utilities Disk and 
replace it with the disk on which you store your Logo 
procedures, which has been initialized as directed in 
the section of the tutorial called Preparing a Blank 
Disk for Use or the Apple DOS Manual (Page 13). 


If You Forgot to Type SETUP 
(Or Whoops! What’s This?) 


If you try to run a music procedure before you run 
SETUP, Logo will respond with a Bronx cheer by put¬ 
ting you into the Apple monitor. You will recognise 
the monitor by the star prompt (*) and a series of values 
running across the screen, such as 


*FFFF -A = 50 X = 02 Y = 4A P = 30 S = 05 


To show Logo you know how to play THAT game, 
type 


<CTRL> Y <RETURN> 
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That is, hold down the <CTRL> key and press the Y, 
then press the <RETURN> key. Logo will reply with 
an innocent ? prompt just as if nothing had happened 
Now you can type SETUP and get on with running 
that procedure. 

Beating the Monitor 



Occasionally during a Logo session something will go 
awry and Logo will confess (rightly or wrongly) to a 
Logo bug and plunk you into the monitor (on page M-2). 
Recover with the <CTRL> Y, then, in the interest of 
not losing any of your work, immediately save the 
contents of your workspace to your disk. (See the sec¬ 
tion on Saving Your Procedures.) Now, back to music. 


Trying Out a Tune: 

<CTRL> P, PRINTOUT(PO), PLAY 


The music procedure you will be working with is 
FRERE. To run it, type 

FRERE and press the <RETURN> key 

Logo will play a tune which may be somewhat familiar 
to you. Hold down the <CTRL> key and press the 
P. Logo will retype the name for you. Press <RETURN> 
again. Repeat as often as you like. 

When you tire of listening to the tune, type 

PO FRERE 
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to PRINTOUT the procedure. You can see that it is 
made up of several subprocedures, each of which is 
used twice. We call these subprocedures music mod¬ 
ules. To print out the first one, type 

PO FR1 

Logo will list them for you. 

TO FRERE 
FR1 
FR1 
FR2 
FR2 
FR3 
FR3 
FR4 

FR4 _ 

END 


TO FR1 

PLAY [1+ 3+ 4+ 1+J [40 40 40 40] 

END 

PLAY is one of the music system procedures which 
make Logo music easily accessible. The first group of 
numbers used by PLAY represents pitches; the second 
group represents durations of the pitches and corre¬ 
spond to them: the first duration refers to the first pitch, 
the second to the second, and so on. 

Pitch 

The scale used is a chromatic scale, each successive 
number being a half tone away from the one next to it 
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in order. The lowest tone is numbered 1—, the highest 
is 24+, giving a range of almost 4 octaves. 

There is an octave difference between the minus and 
the plain and between the plain and the plus series: 1+ 
is an octave above 1,1 is an octave above 1—, 24+ is an 
octave above 24,24 is an octave above 24—. This means 
that 13 is the same as 1,14 is the same as 2, and so on. 

You may think of them as 



—©- 

o 


o 


o 



o 




o 


1- 5- 8- 



1+ 5+ 8+ 13+ 20+ 

1 5 8 13 17 20 

13- 17- 20- 


Scales 

For our use, however, we are more interested in the 
relative pitches of the tones. 

The relationships of several scales are shown below: 


Chromatic: 1011 

121+ 

2+3+4+ 

5+ 6+ 7+ 8+ 9+10+11+12+13 + 

Major: 

Relative 

1+ 

3 + 

5+6+ 

8+ 

10+ 12+13+ 

Minor: 10 

12 1+ 

3+ 

5+ 6+ 

8+ 

10+ 

Six-tone: 

1+ 

3 + 

5+ 

7+ 

9+ 11+ 13+ 
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Duration is the length of time a pitch is played. For the 
time being, hold the durations constant at 40 while 
you experiment with different pitches. Include at least 
as many durations in your duration list as you have 
pitches in your pitch list. Extras will be ignored, so 
make it a long list, to accommodate a long list of 
pitches without having to change your list of 
durations. 

Writing Your Own Music 

You can teach Logo a tune you know, or compose some 
music of your own. Use the PLAY command. For ex¬ 
ample, type: 

PLAY [10 12 12 14 10 8] [40 40 40 40 40 40 40 40 40] <RETURN> 

Hold down the <CTRL> key and press the P key. 

Logo will retype the same line. If you press 
<RETURN> now, the same notes will play again. 

However, to change the tune, move the cursor back 
along the line to the list of pitches (using the left arrow 
key), erase the number you want to change with the 
<DEL> (<ESC>), and type in the new number. 

When your changes are complete, press the 
<RETURN> key. The cursor does not need to be at 
the end of the line when you press <RETURN> in 
immediate mode. 
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The new notes you typed will be played. Type 
<CTRL> P again, make more changes, and press 
<RETURN>. Continue to change your tune until you 
find a tune you like. 


A Neat Trick: 

Turning a Statement into a Procedure: TO 



Here is a neat, tricky way of turning a PLAY statement 
into a procedure. 


a. Find a tune you like, as described above. 

b. Press <CTRL> P to print it out again, but do not 
press < RETURN >. 

c. Use the left arrow to move the cursor to the very 
beginning of the line (as far as it will go) (Logo will 
toot when you try to go farther). 

d. Type the name of your procedure, i.e. TO TUNEl, 
followed by a space. The rest of the line will move to 
the right as you insert new words. 

e. Press <RETURN>. You will be in EDIT mode with 
everything you typed on the first (title) line. 

f. Move the cursor to the space between the title and 
the word PLAY, using the left arrow. 

g. Press <RETURN>. The part of the line to the right 
of the cursor will move down to the next line. 

h. Press <CTRL> C to define your procedure. 

i. Type the procedure name (i.e. TUNEl) to play it. 


Module With Variations 


Some tunes are made up of phrases which are similar 
to each other except for a few notes. Yankee Doodle is 
an example. An easy way to write the second and third 
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modules of a tune like this is to edit the first to make 
each of the others, taking care to change the name each 
time as well. 

Yankee Doodle example: 

TO DOODLE 

PLAY [10 10 12 14 10 14 12] [40 40 40 40 40 40 40] 

END 

TO D00DLE1 

PLAY [10 10 12 14 10 10 9] [40 40 40 40 40 40 40] 

END 

TO D00DLE2 

PLAY [10 10 12 14 15 14 12] [40 40 40 40 40 40 40] 

END 

TO D00DLE3 

PLAY [10 9 5 7 9 10 10] [40 40 40 40 40 40 40] 

END 

This is also easy to play, using <CTRL> P for all but 
the first module, adding the 1 for the second, and 
changing the last character to 2 and 3 for the others. 

The procedure YANKEE.DOODLE would call each 
module in turn: 

TO YANKEE.DOODLE 
DOODLE D00DLE1 D00DLE2 D00DLE3 
END 
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Projects With PMy 

1. Experiment with several four- or six-note tunes. 
(Remember, it doesn’t matter if there are too many 
durations... Logo will ignore the extras.) 

2. Write these tunes into procedures. Use the neat 
trick above. 

3. Try using some of your procedures (together with 
some of the FRERE subprocedures) in a superpro¬ 
cedure to produce a super-song. 



The second set of numbers used by PLAY represents 
the length of time each of the pitches is to be played, 
known as the durations. 

A duration of 40 will be twice as long as a duration of 
20 and half as long as a duration of 80. You can see by 
doubling, that if a duration of 10 represents a 16th note, 
then 20 = an eighth note, 40 = a quarter note, 80 = a 
half note, and 160 = a whole note. 

A dotted eighth, one and one half times as long as an 
eighth, would be 30. You can check this out by consid¬ 
ering the dotted eighth and sixteenth, which have to 
add up to 2 eighths, or 40, and they do, being 30 and 
10. A dotted quarter would be 1.5 times 40, or 60. 

For triplets, divide their total duration by 3 and round 
off the number; for triplet eighth notes, for instance, 13 
1313 would be close enough. 
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Rests 


For a rest, use the letter R as if it was a note. Give it its 
duration in the list of durations. Example: 

PLAY [3 6 6 R 5 8 8 R] [20 20 20 20 20 20 20 20] 

The final rest will not be noticed unless something 
else is played right after it. Note that there is a duration 
to correspond to each rest. 

Time and Rhythm 

Type and run: 

TO HAP 

PLAY [13 13 15 13 18 17] [40 40 40 40 40 40] 

END 

Change the durations using EDIT mode, just as you 
changed the pitches. Change the name of the proce¬ 
dure when you change the durations and you will 
have two versions of the tune. 

TO HAPPY 

PLAY [13 13 15 13 18 17] [20 20 40 40 40 80] 

END 

Projects Changing Durations 

1. Work out the rest of HAPPY. 

2. Change some of the durations in some of your other 
tune procedures. 
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3. Find a simple song and write it for the computer. 
Divide it into small sections and write a procedure 
for each section, then write a superprocedure which 
uses them all and plays the song. If any part repeats, 
write just one procedure for the repeating part and 
use it as many times as you need to in the 
superprocedure. 

4. Run each of your small procedures separately. 

DOING MORE WITH LOGO MUSIC 

The procedure FRERE, touched on briefly before, can 
lead into other Logo music domains, some more sim¬ 
ple, some quite complex. This tutorial will consider 
the simpler ideas first. 

Tuning Up the Demonstration 

Once again, the procedure FRERE: 

TO FRERE 
FR1 
FR1 
FR2 
FR2 
FR3 
FR3 
FR4 
FR4 
END 

TO FR1 

PLAY [1+ 3+ 4+ 1+] [40 40 40 40] 

END 
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Type 

FR1 


and look at the procedure listing as Logo plays it. 

In the second batch of numbers you can see that all the 
notes are of the same duration. In the first group of 
numbers you can see the pitches chosen. Does the tune 
please you? Change it by editing FR1. 

Editing for a Major Reason: PRINTOUT (PO) 


Make your FRERE sound happier: change it to a major 
key by changing the note that makes it sad (minor). 
Figure out which note it is (first, second, third, or 
fourth) and decide whether it should go up or down. 
Adding one to the number will make it a half step 
higher; subtracting one will make it a half step lower. 



If you are not sure which number to change, pick one 
and try it. If you don’t like what you get, begin again 
with FRl, which will still be the same. 


To change the procedure, type 
TO FRl 


just as if you were writing it in the first place. 
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The screen will change completely, as before when 
you typed TO TUNEl. The procedure TO FR1 will be 
at the top and a white line will cross the bottom saying 

EDIT: CTRL-C TO DEFINE, CTRL-G TO ABORT 

The bottom line tells you that you are in EDIT mode, 
and that when you finish your editing, you should be 
sure to Complete the job with <CTRL> C. If you type 
<CTRL> G your changes will be Gone. (<CTRL> G 
TO ABORT is useful when you want to start again and 
NOT keep the changes you made in edit.) 

Use the arrow keys and the <REPT> (repeat) key to 
move the cursor and the <DEL> (<ESC>) to erase. 
Position the cursor to the right of the number you want 
to change, press the <DEL> (<ESC>) and type the 
new number. 

Then move the cursor to the end of the title line and 
type M (for Major), changing the title to FRlM. When 
you have finished maldng changes, hold down the 
<CTRL> key and press <C> (for Complete) to get out 
of EDIT mode. It does not matter where the cursor is in 
the listing when you type <CTRL> G. 

You now have a new, major version of the first module. 
To create a version of FRERE which will play the new 
version, edit FRERE. Type 

TO FRERE 
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and add .MAJOR to the title, making it FRERE.MAJOR. 
Add M to both instances of FRl, to make the listing 
look like this: 

TO FRERE.MAJOR 
FR1M 
FR1M 
FR2 
FR2 
FR3 
FR3 
FR4 
FR4 
END 

Leave EDIT mode with <CTRL> C. Type 
FR1M 

and Logo will play your new version of the first 
module. 

If you don’t like what you hear, type TO FRl and start 
again. 

Type FRERE.MAJOR to hear FRERE with the new 
module in it. Since FR2, FR3, and FR4 have not been 
changed, they are the same as before. At least some of 
them will need to be changed to match the new, major- 
key FRlM. Type 

FR2 

Does FR2 match FRlM? Type 
PO FRl PO FR2 
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on the same line, separated by spaces. PO is the short 
form of PRINTOUT. Compare the two listings. 

The old number you changed in FRlM is still there in 
FR2. To make FR2 major, type 

TO FR2 and change it. 

In FR3, you must once again figure out which note is 
to be changed, as in FRl, and whether it should go up 
(add 1) or down (subtract 1). In FR4 ... well, you can 
see what needs to be done there, if anything. 

Finally, typing FRERE.MAJOR will give you the whole 
tune in the major key, while typing FRERE will still 
play the original version. 


The major FRERE: 

TO FRERE.MAJOR 
FR1M 
FR1M 
FR2M 
FR2M 
FR3M 
FR3M 
FR4 
FR4 
END 

TO FR1M 

PLAY [1+ 3+ 5+ 1+] [40 40 40 40] 
END 
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Saving Your Procedures: SAVE, READ , 

CATALOG, POTS 


When all of the FRERE subprocedures have been re¬ 
vised and renamed, you will have two versions of each 
in your workspace, one set with the old names and one 
set with the new. Renaming a procedure means that 
you are producing a copy of the procedure with a new 
name. To list the names of all the procedures in your • 
workspace, type 

POTS short for (PrintOutTitleS) 

Your workspace contains all of the procedures that 
were read in from the Utilities Disk file MUSIC.LOGO, 
plus FRERE.MAJOR and its subprocedures. 

To see what files you have on your disk, type 

CATALOG 

If you have not yet saved any files, only the initializa¬ 
tion file will be listed. If you have saved some Logo 
files, their names will appear, followed by .LOGO, i.e. 
MUSIC.LOGO. 

To save to your disk everything in your workspace, 
first make sure that your disk is in the disk drive with 
the door firmly closed, then type 

SAVE "MUSIC 

Logo will copy to the file MUSIC.LOGO on your disk, 
the entire contents of your workspace (all the proce¬ 
dures listed when you typed POTS plus all of the 
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global variables soon to be described). Your workspace 
will remain undisturbed, with everything still right 
there. 

Rearranging Musical Modules 

The procedure FRERE has four component subproce¬ 
dures, repeated and put into an order which makes a 
familiar tune. FRERE.MAJOR uses other music mod¬ 
ules to make a different version of the tune. 

These modules, together with the modules and tunes 
you have written and will write, can be used in any 
combination to create new tunes and/or new tune 
modules. Try out some combinations by typing the 
module names at the keyboard. 


Projects With Modules 

1. Play each of the modules separately and decide 
whether it is suitable to BEGIN a tune, END a tune, or 
be in the MIDDLE of a tune. Make a chart with BEGIN, 
MIDDLE, and END across the top and write each mod¬ 
ule name under the appropriate heading. (Some mod¬ 
ules may work in more than one place in a tune.) Use 
your chart as a reference as you you build more tunes. 

2. Build a tune using both major and minor modules. 
Keep track of the combinations of modules that you 
like. 
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Your Own Procedures: END 


You have already created procedures of your own, and 
revised existing procedures and changed their names. 
Now you will learn more about how to write your own 
procedures with names you choose yourself. 




Logo names may consist of letters and numbers 
and some other characters, like the period used in 
FRERE.MAJOR. They may be of almost any length, 
which means that the name you choose can really 
describe what it is (like FRERE.MAJOR). One thing to 
remember is that you must type out the name when 
you want to run or change the procedure, so extremely 
long names can be frustrating. (You can always use a 
working title of one letter while you are writing and 
perfecting a procedure, then change it to something 
more descriptive when you have finished it.) 


When you have chosen your procedure name (the 
example will be TUNEl), there are two ways to go. 


The Neat Trick way of writing a short procedure is 
described in the first part of the music tutorial. 


To write a Logo procedure in the more traditional 
way, type 

T0 (the name you chose) 
or 

TO TUNEl 


When you press the <RETURN> key, Logo puts 
you into EDIT mode, with the printing on the white 
line at the bottom of the screen reminding you to use 
<CTRL> C to Complete (define) your procedure. 
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Choose one of the sequences of music modules you 
liked in doing the Module projects, and type it on the 
next line. You can put any number of module names 
on each line, as long as you separate them with spaces. 
The original FRERE had one module per line to make 
it easier to see that they were individual, separate 
subprocedures. 

Type END as the last line of the procedure (the only 
command that must be on a line by itself), and press 
<CTRL> C. Logo will ask you to wait (the length of 
time depends on the length of the procedure) and then 
will tell you your procedure is defined. 

Type your procedure name to run the procedure. Type 

TUN El 

More on Rhythm: Syncopation 

Change the durations using EDIT as you did before. 
Make the numbers unequal for syncopation, or bounce: 

TO FR1M 

PLAY [1+ 3+ 5+ 1+] [40 40 40 40] 

END 

TO FR1M.B0UNCE.FAST 
PLAY [1+ 3+ 5+ 1+] [30 10 30 10] 

END 

In the example, FRlM.BOUNCE.FAST, the durations 
now add up to 80, or half as much as in the original 
FRlM. This will not only bounce, but will go twice as 
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fast as FR1M. To give it bounce and still let it take just 
as long as the original, be sure the total durations are 
the same. Two sets of 60 and 20 (which add up to 160) 
would do that here. 

Variable Inputs: (” and:) 

It would be nice to have a collection of combinations 
of pitches or durations to try out with different rhythms 
and tunes; to be able to explore music more freely. 

We can do this by using a variable instead of the actual 
numbers to represent the durations or pitches. One 
variable can represent a whole list of durations or 
pitches. All of the ideas suggested here for durations 
can also be used with pitches. 

Variable names can be of any length, made up of letters 
and numbers. The variable name itself is always pre¬ 
ceded by a double quote, like a file name. To show the 
value of the variable (the contents we have assigned to 
it), precede the name with dots: (a colon). 

So PLAY in FR1M could be 

PLAY [1+ 3+ 5+ 1+] :DUR 

with :DUR representing the list of durations. 

Global Variables: 

PO NAMES, MAKE, PRINT 

The durations (:DUR) need to have a value. One way to 
give :DUR a value is to assign one to it: 
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MAKE "DUR [40 40 40 40] 

assigns the list [40 40 40 40] to the variable “DUR and 
the value, :DUR, becomes [40 40 40 40]. Try typing 

PRINT :DUR 

after typing the MAKE statement. 

DUR is now a Global Variable, and will take its value 
into any procedure which mentions it. 

(To list the global variables in your workspace, together 
with their values, type PO NAMES. After all the values 
for pitches flash by, assigned when you typed SETUP, 
the list of global variables you have assigned values to 
will appear.) 

So the new version of FR1M (let’s call it FRlV for Vari¬ 
able) looks like this (assuming that a MAKE statement 
has given DUR a value): 

TO FR1V 

PLAY [1+ 3+ 5+ 1+] :DUR 
END 

Type 

FR1V 

to play the pitches specified in FRlV with the durations 
specified by :DUR. 
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A global variable uses a set of durations which will 
remain the same until changed with another MAKE 
statement. 

We can go one step farther and specify the value of 
:DUR each time the procedure is run. We do this by 
giving the variable value in the title of the procedure 
(which we shall change to FRlL to avoid confusion 
later on): 

TO FR1L DURATION 
PLAY [1+ 3+ 5+ 1+] :DURATI0N 
END 

:DURATION is a Local Variable. It will take whatever 
value it is given when FRlL is run, use it while the 
procedure is running, then forget that value. 



We could have used the variable name :DUR 
again here. If we had used it, it would have 
been leading a double life, because when it 
finished the local job in FRlL, its value would 
have reverted to the global value it had before 
FRlL was run. 


The new FRlL must now be given the value of 
:DURATION when it is run. No longer can you type 
just the name. (Try it: Logo will tell you that you forgot 
the input, :DURATION) Type 

FRlL [40 10 40 10 20] 
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or whatever durations you wish. 


The square brackets are necessary to show it is a LIST 
of durations. 

Durations Defined in Separate Procedures 

Perhaps you don’t want to type the durations every 
time. Write procedures to do it for you: 

TO D4020 

MAKE "DUR [40 20 40 20 40] 

END 

TO D3010 

MAKE "DUR [30 10 30 10 30] 

END 

These procedures can be used with any tunes in which 
you have substituted :DUR for the duration list. Now 
you can write procedures like 

TO FR14020 TO FR13010 

D4020 D3010 

FR1V FR1V 

END END 

TO FR1V 

PLAY [1+ 3+ 5+ 1+] :DUR 
END 

In each of these procedures, the D4020 or D3010 estab¬ 
lishes the value of :DUR as a list of durations. FR1V 
then uses that value of :DUR with its list of pitches. 


Terrapin Logo Tutorial 


M-23 


Music 



When the number of elements in the pitch and dura¬ 
tions list do not match, Logo ignores the extras in the 
longer list. Thus you can write rhythm procedures 
with long durations lists to use with a variety of tunes. 

Duration Procedures Which Take Tune 
Procedure Names as Input: 

SENTENCE (SE), RUN 

Another step takes us to a procedure which defines a 
rhythm and pairs with it any tune which it is given as 
input: 


To run this procedure, type 
C4020 "FR1V 


TO C4020 TUNE 

MAKE "DUR [40 20 40 20 40 20 40 20 40 20 40 20] 
RUN SE TUNE [ ] 

END 


or the name of any tune procedure in which the dura¬ 
tions are specified by :DUR as a global variable. 

How it works (in brief): 


In the third line of C4020, the Logo primitive 
SENTENCE (SE) is used to turn the name of the tune 
procedure into a one-element list, since RUN requires 
a list as input. However, SE itself requires TWO inputs, 
—” and the so-called “empty list” (that’s right, a list with 

nothing in it) designated by the lonely empty brackets 
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is added to satisfy that requirement. When Logo exe¬ 
cutes line 3, it runs the procedure whose name is the 
value of :TUNE, the procedure specified when C4020 
is run (FR1V in the example above). 

A Procedure To Run Any Tune With Any 
Rhythm 

Perhaps the ultimate in convenience is the procedure 
which takes both the rhythm and the tune as input. It 
should be noted that the rhythm procedure used as 
input must use the same variable for durations that is 
used in the tune procedure used as input. 

TO EXPLORE :RHYTHM TUNE 
RUN SE :RHYTHM [ ] 

RUN SE TUNE [ ] 

END 

To run this, type 

EXPLORE "D4020 "FR1V 

both of which use :DUR for the durations. 

Variable Inputs for Individual Pitches 
or Durations 

Individual elements of either list may also be repre¬ 
sented by variables. In the major/minor FRERE, for 
instance, you could make variables of the notes that 
are changed and run the tune either way, using the 
same procedure for both versions. 
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4+ is the first note that was changed, so it would be 
nice if we could change every instance of 4+ to :MI, 
and add the variable to the title of FRl so the value 
may be passed in to PLAY. 

TO FRERE 
FRl 
FRl 
FR2 
FR2 
FR3 
FR3 
FR4 
FR4 
END 

TO FRl 

PLAY [1+ 3+ 4+ 1+] [40 40 40 40] 

END 

This is what we would like to be able to do: 

TO FRl :MI 

PLAY [1+ 3+ :Ml 1+] [40 40 40 40] 

END 

It won’t work. Each element of the list is taken literally, 
so we must put the value of :MI into the list, not :MI 
the word. 

These lists which are pitches and durations can be 
processed in the many ways Logo can process lists. 
They can be taken apart and put together, they can be 
systematically shortened, element by element, then 
reconstituted, the same way. The various ways of pro- 
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cessing lists are covered in the chapter on Words and 
Lists. All can be used with the lists you will have in 
music. 


To put the value of :MI into the list of pitches, we do it 
in two steps, using “PITCHES as the name of the list 
of notes: 


TO FR1VP :MI 

PLAY (SE [1+ 3+] :MI [1+]) [40 40 40 40] 
END 


Type 

FR1VP "5+ to run the major version. 

How FRlVP works: 

Line 1: The title, which includes the variable which 
represents the pitch to be added when the procedure 
is run. 

Line 2: The Logo primitive SENTENCE makes a list 
of 1+ 3+, the value of :MI, and 1+, assigning the list 
to the global variable “PITCHES. 

Line 3: The list :PITCHES is played the same way the 
list :DUR was played in FRlV. Logo plays the pitches 
represented by the elements of the list 1+3+ (the value 
of :MI) and 1+. 

4+ also appeared in FR2, and 9+ was changed in FR3 
(:LA?). This means that you must use :MI for the 4+ in 
FR2 in the same way, and add :MI to the title (FR2VP 
:MI perhaps?) Also, :LA must replace the 9+ in FR3, 
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which now could become FR3VP :MI. In addition, all 
of these procedure names must be changed in a new 
version of FRERE, and the variable names added to the 
name of FRERE itself in order to pass the values in to 
the procedures which need them. So our multi-use 
FRERE becomes: 

TO FREREVP :MI :LA 
FR1VP :MI 
FR1VP :MI 
FR2VP :Ml 
FR2VP :MI 
FR3VP :LA 
FR3VP :LA 
FR4 
FR4 
END 

FREREVP now needs the right values for :MI and :LA 
to make it work and sound right. Type 

FREREVP "5+ "10+ 

to run the major version. 

We can also write a major procedure and a minor pro¬ 
cedure to use FREREVP. In the major procedure, make 
:MI 5+ and :LA 10+; in the minor, make :MI 4+ and 
:LA 9+: 
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TO FRERE.MAJ TO FRERE.MIN 

FREREVP 5+ 10+ FREREVP 4+ 9+ 

END END 


To run the major version, type 
FRERE.MAJ 

To run the minor version, type 


FRERE.MIN 



Both procedures use the same FREREVP, but with 
different variable inputs for the notes that make the 
difference. Notice that the inputs when you use 
FREREVP must be in the same order as when FREREVP 
was defined. Logo looks at the order, not at the names. 

If you wrote FREREVP :LA :MI, Logo would look at the 
original FREREVP and turn your :LA into :MI and 
your :MI into :LA, and the result might be interesting, 
but it might not be what you had originally intended. 
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Recursion in Music 

Recursion is the ability of a language to allow a proce¬ 
dure to call itself. Logo has recursion. Let’s see how 
you can use recursion in music. Consider the proce¬ 
dure 

TO ANY.NOTE :P 
PLAY :P [40] 

END 

When you type 
ANY.NOTE [5+] 

the one note will play. Suppose we change it: 

TO ANY.NOTE :P 
PLAY :P [40] 

ANY.NOTE :P 
END 

Now the note will play and Logo will call the proce¬ 
dure ANY.NOTE, with the same number, so the note 
will play again, and Logo will call ANY.NOTE, and 
the note will play again ... The note will continue to 
be played until you stop it with <CTRL> G. (Hold 
down the <CTRL> key and press the <G> key. This 
will stop almost anything in Logo.) 

This is a recursive procedure. ANY.NOTE calls 
ANY.NOTE which calls ANY.NOTE ... and so on. 
Each time ANY.NOTE is called, Logo looks for the 
number (:P in the example) and uses it in the proce¬ 
dure. 
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A look at the listing of PLAY (type PO PLAY) will 
show that PLAY requires lists, using the operators 
described in the chapter on Words and Lists, and using 
them recursively. PLAY.NOTE, which plays one note, 
as its name implies, is the procedure PLAY uses to 
play each note. 

PLAY.NOTE vs. PLAY: [ ] 

What difference does it make if we use PLAY.NOTE 
instead of PLAY to experiment with individual notes? 

ANY.NOTE, using PLAY, requires the durations and 
the input to be lists, hence the duration [40] and the 
input [5+], which use the square brackets that denote a 
list. Rewriting ANY.NOTE to use PLAY.NOTE, we no 
longer use lists: 

TO A.NOTE :P 
PLAY.NOTE :P 40 
A.NOTE :P 
END 


To run A.NOTE, type 
A.NOTE "5+ or A.NOTE 5 


PLAY.NOTE does not want either numbers or inputs 
to be in list form. (The “ is required to show that the + 
belongs with the number; without it, Logo would look 
for another number to add to the 5.) 


So up to this point, A.NOTE, using PLAY.NOTE, is 
sort of a simplified version of ANY.NOTE. Both take a 
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pitch representation (a number or a number with a 
plus or minus, depending on the octave) and play it 
until stopped with <CTRL> G. 

Recursion With a Changing Input 

However, in A.NOTE, the number used when A.NOTE 
calls itself does not have to be the same every time that 
Logo looks for it. We know that we can use a variety of 
numbers when we run A.NOTE, and it is the same 
when A.NOTE runs itself. For instance, we can write 

TO A.NOTE :P 
PLAY.NOTE :P 40 
A.NOTE :P + 1 
END 

To run it, type 
A.NOTE 1 

This will work if :P is a pure number, that is, the pitch 
is in the middle range where you don’t need to put a + 
or — on the number. 

What does it do? When you type 

A.NOTE 1 pitch 1 is played and Logo calls 
A.NOTE 2 pitch 2 is played and Logo calls 
A.NOTE 3 pitch 3 is played and Logo calls 
A.NOTE 4 and so on. 

Logo plays a chromatic scale from pitch 1 to pitch 24. 


M-32 


Terrapin Logo Tutorial 




Music 


Advanced Projects in Music 

It is also possible to increment the 1+ to 24+ sequence 
or the 1 to 24 sequence by using the operators that take 
words apart and put them together again. Manipula¬ 
tion of words is covered in the chapter on Words and 
Text. 

To create a major scale, or any other scale which does 
not have the same increment between all successive 
pairs of pitches, requires testing, using IF-THEN de¬ 
scribed in the Graphics chapter and the Technical 
Manual description of Logo primitives. 

Transposition, which involves changing all pitches by 
the same amount, is quite straight-forward. 

Analyses of the Utilities Disk Music 
Procedures: Top Level, STOP, FIRST, 
BUTFIRST (BF), THING , WORD 

PLAY: a recursive procedure to play a list of notes 

TO PLAY PITCHES :DURS 
IF :PITCHES = [ 1 STOP 
PLAY.NOTE ( FIRST PITCHES ) ( FIRST :DURS ) 

PLAY ( BF PITCHES ) ( BF :DURS ) 

END 

Line 1: title, including the local variables :PITCHES 

and :DURS which represent values expected as 
input when the procedure is run. 
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Line 2: IF-THEN statement without the (optional) 

THEN. Line 2 says IF it is true that there are no 
more pitches (i.e. the list :PITCHES is empty, as 
shown by the empty square brackets) (THEN) 
STOP running this procedure and return con¬ 
trol to whatever called it, which might be an¬ 
other procedure, or the user (which is known as 
top-level). 

Line 3: Run the procedure PLAY.NOTE, using for in¬ 
puts the first elements of the lists :PITCHES and 
:DURS. 

The input for PLAY.NOTE which is represented 
by the local variable :PERIOD in the PLAY.NOTE 
description is given the value (FIRST :PITCHES), 
which means the first element of the list 
:PITCHES. (FIRST:DURS), the first element of 
the list :DURS, is the value given to the variable 
DURATION in the PLAY.NOTE listing. 

Line 4: Run PLAY again, using the rest of the list 

:PITCHES and the rest of the list :DURS for the 
two inputs. 

BF is short for BUTFIRST. BUTFIRST :PITCHES 
is the list :PITCHES without its first element. 
Using BF recursively, as it is used here, enables 
one to work through a list element by element. 
The procedure will stop at Line 2 when the list 
is exhausted. 
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Use of the list operators FIRST and BUTFIRST 
is explained in the chapter Words and Lists. 

PLAY.NOTE: a procedure to play one note 

TO PLAY.NOTE :PERI0D :DURATI0N 
MAKE "PERIOD THING WORD "# :PERI0D 
Type as one line .CALL.2 TONE :PERI0D :DURATI0N * :BASE.PERIOD / 
:PERI0D 
END 

Line 1: The title, including the local variables :PERIOD 
and :DURATION 

Line 2: Line 2 pastes a # onto the front end of the 
:PERIOD brought into the procedure. 

Beginning at the right, the Logo primitive 
WORD makes one word out of # and whatever 
came in as :PERIOD (for instance, # and 5 to 
make #5). 

The THING of this is its value, i.e. THING 
“PERIOD is the same as -.PERIOD. The Logo 
primitive THING is used when there is no ac¬ 
tual variable name to put the dots on. 

MAKE gives this value to the GLOBAL variable 
:PERIOD. 

Line 3: Runs the procedure .CALL.2 using the follow¬ 
ing for inputs: 

For :ADDR—the value of the global variable 
TONE (defined in SETUP) 

For :INPUT1—the value of the local variable 
:PERIOD 

For :INPUT2—a value obtained by the calcula¬ 
tion shown 
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Harmony: The Terrapin Music System 


The Terrapin Music System, available separately, gives 
the user the possibility of 6-part harmony over a six- 
octave range, plus some rhythm sounds. The Music 
System uses the techniques described in this tutorial, 
plus primitives and procedures for putting the voices 
together. 
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The attempt has been made to make each chapter in 
the tutorial independent with no other chapter as pre- 
requiste. If, however, there are questions, consult the 
Graphics chapter, which contains the most complete 
explanations. 


Logo uses integers (whole numbers like 4,67,1918) 
Jr and real numbers (numbers with a decimal part like 
4.55, 3.14159) without distinguishing between them. 
7/2 (7 divided by 2) is always 3.5 in Logo. 


Arithmetic Operations 

When you use a computer, you must type everything 
on one line. For the operations of addition, subtraction, 
multiplication, and division, Logo uses the following 
operators: 


as in 

Addition + 7+5 (12) 

Subtraction — 7—5 (2) 

Multiplication 7^-5 (35) 
Division / 7/5 (1.4) 


The star (or asterisk ^) is used for multiplication to 
avoid confusion with the letter x. The slash (/) is used 
to keep division on one line. 
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Raising to powers (exponentiation) uses the procedure 
EXPONENT, described below. 


Logo will do the arithmetic for you when you give it 
an operation for its input. When you type: 

FD 26 + 42 Logo will move the turtle 68 steps for¬ 
ward; 


PRINT 76 * 42 Logo will print 3192; 
RT 360/5 Logo will turn the turtle 72. 


Hierarchy of Operations 


Doing arithmetic on a line does present some prob¬ 
lems, however. There must be rules about which 
operation is done first. Try these: 


PRINT (7 + 5)/ 2 
PRINT 7+5/2 


In the first, the 7 and 5 are added, to make 12, then the 
12 is divided by 2, which gives 6. In the second, the 5 
is divided by 2 first, with the result of 2.5, then the 2.5 
is added to the 7, giving 9.5. 

RULES THE COMPUTER PLAYS BY 



1. Parentheses are the first thing the computer looks for 
in evaluating an arithmetic expression. It does what¬ 
ever is in the parentheses first, according to the rest 
of the rules. 
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2. Multiplication and division are done next, from left 
to right. 
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3. Addition and subtraction are done last, also from 
left to right. 

Examples: 
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Step 4 7.2 

So you see, the order in which the operations are done 
can make a considerable difference. 
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Outputs, Integer Operators, Functions: 
RANDOM, RANDOMIZE, ROUND, INTEGER, 
QUOTIENT, REMAINDER, SQRT, SIN, COS 

Arithmetic operations give a result, called an output. 
When you type an operation at the keyboard, Logo 
will tell you that result. Type 

24/3 and Logo will type 

RESULT: 8 

RANDOM is another Logo operation which gives a 
result. It chooses a random number in the group you 
select. You specify the group by giving RANDOM the 
next higher number. 

Type Logo will output 

RAND0M 10 a number between 0 and 9; 

RANDOM 501 a number between 0 and 500. 

(Type RANDOMIZE before using RANDOM to avoid 
identical sequences of random numbers every time 
you turn on the computer.) 


The other integer operators also output. ROUND 
rounds off a real number to the closest integer: 


ROUND 6.4 
ROUND 2.7 
ROUND -6.4 
ROUND -2.7 
ROUND 6.5 


outputs 6 
outputs 3 
outputs —6 
outputs —3 
outputs 7 
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INTEGER gives the integer portion of a real number: 


INTEGER 4.3 
INTEGER 4.9 
INTEGER -4.3 
INTEGER -4.9 
INTEGER 7/2 


outputs 4 
outputs 4 
outputs —4 
outputs -4 
outputs 3 


QUOTIENT gives the integer part of the quotient of 
two numbers: 


QUOTIENT 7 2 outputs 3 

(the same as INTEGER 7/2) 

QUOTIENT 1 2 outputs 0 

QUOTIENT —7 2 outputs —3 

REMAINDER outputs what is left over from the integer 
division: 


REMAINDER 7/2 outputs 1 

REMAINDER 2/3 outputs 2 

When you use real numbers with QUOTIENT or 
REMAINDER, they are ROUNDed to integers before 
the division takes place. 

SQRT produces the square root of the positive number 
you give it: 

SQRT 160 outputs 12.6491 

SQRT 16 outputs 4 
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SIN and COS output the sine and cosine of the number 
given in degrees: 

SINO outputs 0 

SIN 90 outputs 1 

COS 0 outputs 1 

COS 90 outputs 0 

In a procedure you must do something with an output. 
If you don’t, Logo complains that you don’t say what 
to do with it.You might PRINT it, assign it to a variable 
name, or use it in a graphics command: 

RT 360/4 the turtle turns right 90 

MAKE "A 360/4 the value of A becomes 90 

PRINT :A Logo prints 90 

PRINT QUOTIENT 5/2 Logo prints 2 

MAKE "B REMAINDER 5/2 :B becomes 1 

PRINT :B Logo prints 1 

Variables, Global and Local: MAKE 

In Logo, you may use a variable anywhere you can use 
a number. 



Variable names in Logo may be of any length, made up 
of any combination of letters, numbers, or the special 
characters ! ,”#$ • %&? which leave out only the opera¬ 
tors, brackets and parentheses, and the single quote. 



The name of the variable is preceded by the single set 
of double quotes (”). The value of the variable is pre¬ 
ceded by dots (: also known as colon). 
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Global Variables: 

The Logo primitive MAKE gives a value to a variable 
which the variable keeps until it is changed with an¬ 
other MAKE command. MAKE can be used either in 
IMMEDIATE mode or in a procedure. The value as¬ 
signed is used in any procedure in which the variable 
is used and stored when a copy of the workspace is 
saved. Variables created with MAKE are called Global 
Variables. Examples: 

MAKE "PI 3.14159 gives the variable :PI the value 3.14159 
PRINT :PI prints 3.14159 

MAKE "MINE "MINK gives MINE the value MINK 
PRINT :MINE prints MINK 

MAKE "A :PI gives :A the VALUE of :PI (3.14159) 

PRINT :A prints 3.14159 

Local Variables: 

Local variables are used only in procedures. They 
are given value when the procedure is called; they 
lose their value after the procedure is run. See the 
section on procedures for an example. 
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Procedures: TO, END 


Any command you can type at the keyboard can be 
used in a Logo procedure. To define a procedure, 
type TO and the name you have chosen. For exam¬ 
ple, type: 


TO CUBE (to obtain a number multiplied by itself 
3 times) 


The screen will clear, with the procedure title 
TO CUBE at the top and a white line at the bottom 
which tells you that you are in EDIT mode and 
should use <CTRL> C to complete the definition of 
your procedure. (<CTRL> G means gone.) (To do a 
<CTRL> C, hold down the <CTRL> key and press 
the <C> key.) 


Type in the rest of the procedure below, and press 
<CTRL> C. (See the APPENDIX for a discussion of 
commands used in EDIT mode.) 


TO CUBE 
PRINT 4* 4 *4 
END 


Type 

CUBE Logo will print 64 

You can use a variable to extend the usefulness of this 
procedure. Make it print the cube of whatever number 
is given it, instead of printing the cube of 4 all the time. 
Replace each 4 with the variable name and add it to 
the title, so the value of the variable may be brought 
into the procedure. You may choose any name for your 
variable; a descriptive one is most helpful. 


C-8 


Terrapin Logo Tutorial 





Computation: Handling Numbers 


TO CUBE :NUMBER 

PRINT :NUMBER* :NUMBER* :NUMBER 
END 

CUBE now expects a number. This means that you 
may not type CUBE by itself any more. When you do, 
Logo will tell you that you forgot the input 
(:NUMBER). 

Now when we type CUBE with a number, Logo will 
print the cube of that number. 

Type Logo will print 

CUBE 3 27 

CUBE 33 3 5 9 3 7 

CUBE 333 36926037 

After CUBE is run, Logo forgets the value of 
:NUMBER. Try typing 


PRINT :NUMBER 


.NUMBER is a local variable and has value only within 
the procedure in which it is used. :NUMBER could be 
used in a variety of procedures and have a different 
value in every one. 

Bringing Values Out of Procedures: 

OUTPUT (OP) 


When the results of running a procedure are to be used 
by another procedure, which often happens when the 
purpose of a procedure is doing a computation, those 
results must be brought out of the procedure for use. 
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There are two ways of getting values out of a proce¬ 
dure: 

1. Create a global variable (described above). 

2. Use the Logo primitive OUTPUT. 

The Logo primitive OUTPUT returns values from the 
procedure in which it occurs. The values are returned 
to the procedure which called that procedure. 

If you run a procedure which uses OUTPUT, the proce¬ 
dure will print the OUTPUT on the screen. 

If you run a procedure which calls a procedure which 
uses OUTPUT, only the procedure you ran will receive 
the information from OUTPUT. It will not be printed 
unless there is a PRINT statement. 

This is similar to what happens when you do 
arithmetic operations. Type 

3 + 5 

and Logo will print 

RESULT: 8 

Type 

FORWARD 3 + 5 

and the result 8 only goes to the FORWARD 

The turtle moves, but the 8 is not printed on the screen. 
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We can change the PRINT statement in CUBE to OUT¬ 
PUT to show this: 

TO CUBE1 iNUMBER 

OUTPUT :NUMBER * :NUMBER * :NUMBER 
END 


Now if you type 
CUBE1 3 

Logo will print 
RESULT: 27 

However, if you type 
FORWARD CUBE1 3 

the graphics turtle will move forward 27 steps. 

Example of OUTPUT and Recursion: 

A Procedure to Do Exponentiation 

A recursive procedure is a procedure which calls itself 
as a subprocedure. The procedure EXPONENT, shown 
below, uses recursion to raise :X to the power of :Y. 

TO EXPONENT :X :Y 
IF :Y = 0 THEN OUTPUT 1 
OUTPUT :X * (EXPONENT :X :Y-1) 

END 
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In the procedure, Y is used as a counter to make sure 
that X is multiplied together the correct number of 
times. 


How EXPONENT works: 

1. Tests for the finish, i.e. Y = 0 

2. Multiplies :X by the result of running EXPONENT 
with the counter decremented. 

1. Tests for the finish 

2. Multiplies :X by the result of running EXPONENT 
with the counter decremented, and so on until :Y 
is decremented to 0. 


Example: 

EXPONENT 3 4 

We shall follow the recursion down through all its 
levels and then trace OUTPUT on its way back up. 

Going down, each level is put on hold pending the 
appearance of a number needed to complete the com¬ 
putation. Coming back up, each number is output to 
the level above and each computation completed. 
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Going down: 

EXPONENT 3 4 

1. Check to see if :Y (4) is 0 

2. OUTPUT 3 * the result output by EXPONENT 3 3 
Logo must figure out the value of EXPONENT 3 3. 

EXPONENT 3 3 

1. Check to see if :Y (3) is 0 

2. OUTPUT 3 * the output of EXPONENT 3 2 

Logo must figure out the value of EXPONENT 3 2. 
EXPONENT 3 2 

1. Check to see if :Y (2) is 0 

2. OUTPUT 3 * the output of EXPONENT 31 

Logo must figure out the value of EXPONENT 31. 
EXPONENT 3 1 

1. Check to see if :Y (1) is 0 

2. Output 3 ^ the output of EXPONENT 31 

Logo must figure out the value of EXPONENT 3 0. 
EXPONENT 3 0 

1. Check to see if :Y (0) is 0; if it is, OUTPUT 
1. OUTPUT stops the procedure and out¬ 
puts the value 1. 


Terrapin Logo Tutorial 


C-13 



Computation: Handling Numbers 


Going back up: 

The 1 is output to the procedure which called EXPO¬ 
NENT 3 0, which was EXPONENT 31. This completes 
the evaluation in EXPONENT 31, which is output to 
the procedure which called EXPONENT 31, which 
was EXPONENT 3 2. The process is repeated until the 
top level is reached. 

The evaluation of EXPONENT 3 4 on the way down 
looks like this: 

EXPONENT 3 4=3 ^(EXPONENT 3 3) 

= 3 *(3 ^(EXPONENT 3 2) 

= 3 *(3 *(3 * EXPONENT 3 1)) 

= 3 *(3 *(3 *(3 * EXPONENT 3 0))) 

Since the value output by EXPONENT 3 0 is 1, going 
back up this becomes 

EXPONENT 3 4 = 3 * (3 * (3 * (3 * (1)))) 

EXPONENT 3 0 outputs 1 
= 3 * (3 * (3 * (3 * 1)» 

EXPONENT 3 1 outputs 3 
= 3 * (3 * (3 * 3) 

EXPONENT 3 2 outputs 9 
= 3 * (3 * 9) 

EXPONENT 3 3 outputs 27 
= 3 * 27 
EXPONENT 3 4 outputs 81 

The 3 is multiplied by itself 4 times, just as prescribed. 

Note the use of :Y as a counter which makes sure that 
EXPONENT is called exactly 4 times, that is, 3 is multi¬ 
plied by itself 4 times, or raised to the power of 4. 
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Graphing Functions: 

Sine, Cosine, Tangent, Parabola, Ellipse, 
SETXY, HOME, DRAW, HT 

It is easy to graph functions of the form Y = f(X) using 
the Logo primitive SETXY, which takes as its inputs 
the :X and :Y positions on the Logo screen. 

The heart of each procedure is the evaluation of: Y and 
the positioning of the turtle (f(:X) is whatever the func¬ 
tion calls for): 

MAKE "Y f(:X) 

SETXY :X :Y 

This is more elegantly accomplished by combining 
the two operations. For example: 

SETXY :X f(:X) 

Principal considerations include 

1. Keeping the curve on the screen 

2. Positioning the curve 

3. Scaling for visibility 

To position the start of the curve, we might want to 
move :X to the left by the amount :C. Our statement 
becomes: 

SETXY :X—:C f(:X) 
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To see :Y if it is very small, we might want to multiply 
it by a visibility factor :D: 

SETXY :X—:C f(:X) * :D 

SINE FUNCTION: Y - SIN X 

We would like to begin the sine wave at the left edge of 
the screen (-140), make it large enough to be visible, 
and stop at the right edge of the screen (+140). 

To begin drawing at the left edge and yet have :X start 
at 0 for the evaluation of :Y, the X position becomes 
:X—140. 


To see :Y, which will vary between 0 and 1, multiply 
by 100 (actually anything up to 120, the vertical limits 
of the screen). 


The procedure starts out as 

TO GRAPH.SIN :X 
SETXY :X - 140 100 * SIN :X 

END 

This computes one point and moves the turtle to it. To 
continue the curve, increment :X by calling 
GRAPH.SIN with an incremented value: 

TO GRAPH.SIN :X 
SETXY :X - 140 100 * SIN :X 

GRAPH.SIN :X + 5 
END 
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To stop the curve at the right edge of the screen, insert 
a test for the X positon (:X-140): 

TO GRAPH.SIN :X 
IF :X - 140 > 140 STOP 
SETXY :X - 140 100 * SIN :X 

GRAPH.SIN :X + 5 
END 

To draw a sine wave starting at X = 0, type 
GRAPH.SIN 0 

An axis would improve the graph (DRAW clears the 
screen and moves the turtle to the center, HT hides the 
turtle): 

TO AXIS 
DRAW 
HT 

SETXY 140 0 
HOME 

SETXY -140 0 
END 


Now to draw a sine wave with an X-axis, type 
AXIS 

GRAPH.SIN 0 
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The final improvement for the sine wave is writing a 
procedure to do that typing for us: 

TO SINE 
AXIS 

GRAPH.SIN 0 
END 

Finally, to draw a sine wave, type 
SINE 

COSINE FUNCTION: Y = COS X 

Substitute COS for SIN in the GRAPH.SIN procedure, 
changing its name to GRAPH.COS. Write a superproce¬ 
dure COSINE to call it with AXIS. The easiest way to 
do this is to edit GRAPH.SIN and SINE. See the editing 
sections of the Graphics chapter and the APPENDIX. 

TANGENT FUNCTION: Y = (SIN X) / (COS X) 

The tangent procedure has some different problems. 

Note how :X is incremented slightly if COS :X = 0, to 
avoid dividing by 0. Since we don’t want to stop the 
procedure in the middle of the screen, PU (PENUP) is 
used to stop the turtle from drawing when it is simply 
wrapping around the screen to get to the off-screen 
points. (When the line goes off the edge of the screen, 
it continues by enetering on the opposite side of the 
screen. This is called wrapping.) Using PU requires 
adding PD (PENDOWN) to start drawing again. 
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TO GRAPH.TAN :X 

IF COS :X = 0 THEN MAKE "X :X + 1 
IF :X - 140 > 140 STOP 
MAKE "Y (SIN :X) / (COS :X) 

IF 100 * :Y > 115 PU 
IF 100 * :Y < -115 PU 
SETXY :X—140 :Y * 100 
PD 

GRAPH.TAN :X + 5 
END 

Here Y is evaluated separately because it must be tested 
before the drawing step. 

PARABOLA: Y = (X * X) / (4 * A) 


The vertex of this parabola is at 0,0; the axis is vertical. 
A is the distance from the vertex to the focus. Increas¬ 
ing A makes a wider parabola; decreasing it makes a 
narrower one. 

The general formula for this parabola is 

(X-H) * (X-H) =4*A* (Y-K) 

where H is the X co-ordinate and K is the Y co-ordi¬ 
nate. H and K are 0 in this example. 

In the drawing of the parabola, add PU after AXIS to 
avoid leaving a trail to the beginning of the curve. 
(This is the same AXIS procedure that is used in the 
sine procedure.) 
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Determine the beginning point in the superprocedure 
PARABOLA, using the equation again, with 118 the 
value for Y (about the largest possible value for Y). 

TO PARABOLA :A 
AXIS 
PU 

GRAPH.P (SORT (118 * 4 * :A)) :A 
END 

TO GRAPH.P :X :A 
MAKE "Y (:X * :X) / (4 * :A) 

IF :Y > 124 STOP 
SETXY :X :Y 
PD 

GRAPH.P :X + 5 :A 
END 

With a positive value for A, this will draw a parabola 
above the X axis. To allow use of a negative A, which 
would draw a parabola below the X axis, we must use 
the absolute value of A (A without its sign) in calcu¬ 
lating the starting position of X, since we cannot take 
the squareroot of a negative number. We write the pro¬ 
cedure ABS to figure the absolute value for us: 

TO ABS :X 

IF :X < OTHEN OUTPUT (—:X) 

OUTPUT :X 
END 

OUTPUT stops after it outputs. So if X is negative, it 
will change it to positive; if it is positive it will output 
it directly. PARABOLA becomes: 
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TO PARABOLA :A 
AXIS 
PU 

GRAPH.P (-SQRT018 *4 * ABS :A)) :A 
END 


Since it is a test for Y that stops the procedure, we 
must revise the test to allow for a negative Y: 


TO GRAPH.P :X :A 
MAKE "Y (:X * :X) / (4 * :A) 

IF ANYOF (:Y > 124) (:Y < -124) STOP 
SETXY :X :Y 
PD 

GRAPH.P :X + 5:A 
END 

To make a family of parabolas, add a recursive call 
to PARABOLA (taking care to pick up the pen in 
between): 

TO PARABOLA :A 
AXIS 
PU 

GRAPH.P (—SQRT(118 * 4 * ABS :A)) :A 
PU 

PARABOLA :A + 1 
END 

ELLIPSE FUNCTION: 

Y = B * SQRT (1-(X * X) / (A * A)) 


The center of this ellipse is at 0,0. A is half of the 
horizontal axis, B is half of the vertical axis. 
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The general formula for an ellipse is 

(X-H) * (X-H) / (A * A) + (Y-K) * (Y-K) / (B * B) = 1 

where H,K are the X and Y co-ordinates of the center, 

(0,0) in this example. 

The ellipse procedure must solve the problem of Y 
becoming negative as X returns to its original value. 
Changing the sign of the increment takes care of it. 

TO GRAPH.ELLIPSE :X :A :B :INC 
IF (:X * :X) > (:A * :A) STOP 
IF :X = :A THEN MAKE "INC (-1) 

SETXY :X :INC * :B * SORT (1—(:X * :X) / |:A * :A)) 

PD 

GRAPH.ELLIPSE :X + :INC :A :B :INC 
END 

The SETXY command must be typed as one line. Use 
the same AXIS program as you used with the sine 
procedure. 

TO ELLIPSE :A :B 
AXIS 
PU 

GRAPH.ELLIPSE -:A :A :B 1 
END 
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Books Available from Terrapin 


Several books on Logo and educational computing are 
available from Terrapin and Terrapin dealers. These 
include: 

Logo for the Apple II, Harold Abelson 
Mindstorms, Seymour Papert 
Learning with Logo, Dan Watt 

Turtle Geometry, Harold Abelson and Andrea diSessa 
Learning Logo on the Apple II, Tony Adams et al. 

Special Technology for Special Children, 

Paul Goldenberg 

1,2,3, My Computer and Me, Donna Bearden 
The Turtle’s Sourcebook, Donna Bearden et al. 

Logo: An Introduction, J. Dale Burnett 
Artificial Intelligence, Patrick Winston 

Call us at (617) 492-8816 for more information. 

A Word of Caution: <CTRL> K and 
<CTRL>X 

You are now the proud owner of Terrapin Logo version 
2.0, which differs from versions 1.0-1.3 in a number of 
respects. The revised tutorial reflects these modifica¬ 
tions in full. (A summary appears at the beginning of 
the Technical Manual.) 

However, the existing Logo literature may not accu¬ 
rately reflect these differences. In particular, note that 
the old command to delete a line in the editor, 
<CTRL> K, has been changed to <CTRL> X. 




CHANGES FOR TERRAPIN LOGO VERSION 2.0 


Version 2.0 of Terrapin Logo differs from versions 1.0-1.3 in the following respects: 

The command to kill a line in the editor is now <CTRL>X instead of <CTRL>K. The 
most recently deleted line may be Yanked back into the editor with <CTRL>Y. 

The <DELETE> key on the Apple lie can be used to delete backwards one character 
(just as the <ESC> key does). All four arrow keys may be used in the editor to move 
the cursor. 

Six new primitives have been added: MEMBER?, EMPTY?, ITEM, COUNT, LOCAL, 
SETDISK 

MEMBER? takes two inputs, and outputs "TRUE if the first is a member of the second. 

EMPTY? outputs "TRUE if its input is the empty word or the empty list. 

ITEM takes two inputs, a number and a list/word, and outputs the nth element of the 
second input. 

COU NT returns the number of elements in its input, which can be either a word or a list. 

LOCAL allows the creation of a local variable not declared in the title line. See the Com¬ 
putation and Words & Lists chapters for a fuller discussion. 

SETDISK takes two inputs, a drive number and a slot number, and directs all sub¬ 
sequent file commands to the specified drive. Default is SETDISK 1 6. 

Garbage collection of truly worthless atoms (GCTWA) has been added, with the result 
that the error message NO STORAGE LEFT! does not crop up inexplicably during long 


sessions. 



The command to recall the previous line in immediate mode, <CTRL>P, can now be 
used after the REPEAT, RUN, and DEFINE commands as well. 

Self-starting files can now be created more easily using a variable called STARTUP. 

PO, SAVE, EDIT, and ERASE can now take a list of procedures as input. The PSAVE utility 
is thus obsolete; now you may type (SAVE "FILENAME [PROC1 PROC2 PROC3...]) in¬ 
stead. See page G-35. 

The DOS primitive no longer supports the MON, NOMON, and VERIFY options. The 
space following the option name is no longer unnecessary; for instance, typing DOS 
[BLOADPICTURE] will give an error. Adding a space after BLOAD will correct the prob¬ 
lem. Also, addresses given to the DOS primitive may be expressed in either decimal or 
hexadecimal form. 

The changes to the DOS also allow you to read Apple DOS text files. A particular effect 
of this is that Apple (LCSI) Logo files can be read into Terrapin Logo using the standard 
READ primitive. (Of course, the procedures in such files will not execute properly until 
syntax corrections are made.) 
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INTRODUCTION 


So far, all of the procedures that we have described or 
encouraged you to write have been non-interactive. 
That is, once you started them, they did what they 
were designed to do without consulting you further. 
The most you might ever have done was press 
<CTRL> G to stop them. 

Interactive programs are perhaps the most fun of all, 
precisely because they interact. They are also poten¬ 
tially the most complex. The reason for this is that 
while they are underway, they must account for the 
unpredictable behavior of the person with whom they 
are interacting. 

Interactive movement forms the basis for a variety of 
video games and simulations. Interactive language 
adds attractive features to these games, but it can also 
open up a whole new interest area: mad-libs, quizzes, 
word games, conversational programs that construct 
grammatical sentences and “understand” limited 
amounts of natural language, even foreign languages. 


There are two ways you can approach this chapter. You 
may prefer to go quickly through, skipping all of the 
indented text, or you may wish to study those portions 
as you work your way through the chapter. As in other 
chapters, the indented portions add depth and detail 
to the presentation. 



The procedures you are asked to type in are used 
throughout the chapter, so be sure to save them on your 
disk when you decide to take a break, and be sure to 
read them back in when you start to work on the chap- 
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ter again. (CHAPTERW would be an appropriate file 
name, so you can type SAVE “CHAPTERW and READ 
“CHAPTERW.) 

In the graphics chapter, you learned about procedures 
which had an immediate and visible effect. FD moved 
the turtle (and left a trace on the screen if the pen was 
down), DRAW cleared the screen, and so on. 

This meant that even without writing procesdure, you 
were able to give Logo several commands in succes¬ 
sion and see what their combined effect was. You may 
even have forgotten what commands you used, but the 
screen “remembered” their effect. 

Procedures spared you considerable typing. They also 
gave you a way of recording the instructions for your 
designs. But the designs themselves didn’t depend on 
the procedures. They would have grown just as surely 
on the screen if you had typed each turtle command 
line by line. 

In this chapter, you will be learning about primitives 
that manipulate Logo “objects.” The effects of these 
primitives are not graphic and do not accumulate un¬ 
less you explicitly instruct them to. 

These primitives can be explained and used one by 
one, but their real power is most apparent in combina¬ 
tion. As a result, the focus of this chapter must be on 
building procedures which combine these primitives 
in different and varied ways. 

Even though there are only roughly a dozen important 
new primitives, and even though only about half are 
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used with much frequency, there are many, many 
combinations which can be used in creating sophisti¬ 
cated and interesting programs. 

Here are some of the programs that you will learn how 
to write in this chapter: 

—Interactive video programs 
—Quiz programs 

—Programs that write and “understand” 
language 

—Programs that play games 
—Programs that learn 


Logo’s facility with words and lists makes it ideal for 
writing conversational programs, quizzes, pig Latin 
translators, programs that teach, and even programs 
that learn: in short, all programs that need to manipu¬ 
late lists of information. 

The chapter is divided into three sections. The first is 
devoted entirely to interactive video programs, but in¬ 
troduces some procedures and techniques used in the 
remainder of the chapter. 

The second section is devoted to programs that manip¬ 
ulate language (quizzes, sentence generators, etc.) and 
programs that build and manipulate knowledge bases. 

The third section is devoted to building and manip¬ 
ulating more complex knowledge bases, and includes 
programs that play games and that learn. 


Terrapin Logo Tutorial 
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Interactive Graphics: READCHARACTER 
(RC), TOPLEVEL, STOP 

Let’s create a program to control the turtle with single 
key-presses at the keyboard. The initial design will 
provide only four turtle behaviors, FD, RT, LT, and 
DRAW, and will control them with F, R, L, and D, re¬ 
spectively. 

x:rxcr~ 

Projects at the end of this section suggest 
some additional behaviors to control. Further 
additions will become possible with tech¬ 
niques that you will learn later in this chap¬ 
ter. 

The procedures that you will be developing 
are similar to those in the INSTANT program 
on your utilities disk. This program is ex¬ 
plained further in this guide and in LOGO 
FOR THE APPLE II, by H. Abelson (published 
by Byte Books, 1982, and available from 
Terrapin). 


In this design, the turtle will be moved Forward 10 
steps each time the F is pressed. Each time R or L is 
pressed, the turtle will turn Right or Left 15 degrees. 
(You may choose any amount, of course, not just what 
is suggested here.) Pressing D executes DRAW. 

The first task is to create a procedure that takes a single 
character as input and controls the turtle on the basis 
of that character. Its title line might be: 


TO EASYDRAW:CHARACTER 
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or to save typing 
TO EASY :CHTR 

The logic is quite simple. If the character is an F, then 
perform FD 10. In Logo, this is: 

IF :CHTR = "FFD 10 

If you prefer, you can add the word THEN, 
and write 

IF :CHTR = "FTHEN FD 10 

Some people find it easier to read a program 
that has the extra word in it. Others find it 
more cluttered that way. We will leave it out 
in this chapter. 

Similarly, if the character is an R, perform RT 15. 

IF :CHTR = "R RT15 

There should be some way of telling the program when 
we want to quit drawing to do something else. The let¬ 
ter Q (for Quit) can be used. If that character is the in¬ 
put, the procedure will perform NODRAW and 
TOPLEVEL. 

NODRAW gets out of draw mode and clears the text 
screen. TOPLEVEL is the Logo primitive that tells 
Logo to stop executing a program and return to im¬ 
mediate mode to wait for a new command. 
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It is important to know the difference be¬ 
tween TOPLEVEL and STOP. STOP stops the 
execution of the procedure in which it is 
found, but does not stop other procedures 
that may also be running. TOPLEVEL stops 
an entire program. Every procedure that Logo 
was running stops, and Logo returns control 
to the user. 


The whole procedure might look like this: 

TO EASY :CHTR 
IF :CHTR = "FFD 10 
IF :CHTR = "R RT15 
IF :CHTR = "LLT15 
IF :CHTR = "D DRAW 
IF :CHTR = "Q NODRAW TOPLEVEL 
END 


Define this procedure. Type carefully, making certain 
that no spaces are left between the : and the word 
CHTR, or between the double-quote character and the 
single letter that follows it. Notice also that there is 
only one double-quote character on each line. 



We will explain in greater detail later, but 
provide this brief version for the curious. The 
words 


'F in IF :CHTR = "F FD 10 and 

'CHAPTERW in SAVE "CHAPTERW 
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are quoted in order to tell Logo not to treat 
them as procedures. The words FD and SAVE 
are executed by Logo, but we want “F to be 
just plain F, literally, and not have Logo try to 
execute it as an instruction. Similarly, we 
want “CHAPTERW to be the name of a file— 
just a name, not something to do. The quoted 
word ends at the next blank space, so no final 
quote is needed. 

Do not add a final quote, since Logo will then 
assume you mean to say something like: If the 
character is an F followed by a double¬ 
quote-mark, then . . . This is not at all what 
you want. To demonstrate this, type 


PR "A" 


After the procedure is defined — remember to type 
<CTRL>C — you can try it out by typing 

EASY "F 
EASY "R 
EASY "Q 

This is definitely not an improvement over typing FD 
10 RT 15 ND, but it contains all the logic for the pro¬ 
gram we intended to create. Now what is needed is 
another procedure — let’s call it QUICKDRAW — 
whose sole purpose is to wait for a key to be pressed at 
the keyboard and to give that character to EASY as an 
input. 


Terrapin Logo Tutorial 


W-7 



Words and Lists 



QUICKDRAW will use the Logo primitive 
READCHARACTER, abbreviated RC, to report what 
key has been pressed at the keyboard. To make 
QUICKDRAW continue endlessly (until a Q is 
pressed), QUICKDRAW calls itself as a subprocedure 
and looks like this: 

TO QUICKDRAW 
EASY RC 
QUICKDRAW 
END 

The line EASY RC in QUICKDRAW tells Logo to read a 
character typed by the person using the computer and 
to use that character as the input to EASY. EASY fig¬ 
ures out what action to perform based on what charac¬ 
ter it receives. If it gets an R, it performs a RT15. 

Even though all five lines of EASY are executed each 
time EASY is called, at most one action will be taken, 
because only one of the IF tests will be true. 

Projects with RC: Extending QUICKDRAW 

1. By using the same logic you can add other com¬ 
mands to EASY. Teach the procedure how to control 
the pen (PU or PD) in a single keystroke. (You might 
assign U to the command PU and P to the command 
PD, or you might choose D for PD, in which case you 
would need something else for DRAW.) 


2. Add SHOWTURTLE (ST) and HIDETURTLE (HT). 
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3. Teach EASY to change the pen color with two key¬ 
strokes. The first keystroke (C, for Color) will run a pro¬ 
cedure that waits for a second keystroke. If that second 
keystroke is a 0 through 6, the pen will be set to that 
color. If any other key is pressed, nothing happens. 

The job could, of course, be done with one keystroke, 
representing each pen color with a different key. You 
might use the number keys directly, or use letters that 
represent the color names (for example, W for White, G 
for Green, etc.). 

A disadvantage of using the numbers is that it would 
be nice to have them available for use as “multipliers” 
to multiply the effect of the next command. You will 
learn a technique for doing this in the next section. 
Choosing letters for each color is acceptable, although 
it requires that a person remember codes for each color. 

4. Use the same technique to change background 
color. 


Changing the Value of a Variable: MAKE, 
PRINT(PR) 

We must take a short detour from the QUICKDRAW 
program. When you return to it, you will be able to 
write procedures which allow multiples of the single 
key commands in EASY. For example, 3F will make 
the turtle go forward 3 * 10 or 30 turtle steps. 

The Logo primitive MAKE is used in several ways. In 
this section, we will illustrate one way, and in another 
section of this chapter, when we define words, lists, 
variables, input, and output more carefully, you will 
learn more of the subtleties of MAKE. 
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A metaphor for MAKE: When you say 
MAKE"NUM7or 

MAKE "PERSON [MARGARET TRUMAN] 

it is as though you are creating locations or boxes 
called NUM and PERSON and tossing a 7 into the first 
and the list [MARGARET TRUMAN] into the second. 
To find out what is in a particular box called NUM, the 
Logo command is THING “NUM or, more commonly, 
just :NUM, meaning the thing or value that is in the 
box named NUM. 

Of course, you have been using names to refer to values 
all along. We will use the new metaphor to tr ans late a 
procedure in a new way. 

TO SHAPE :LENGTH :SIDES 
REPEAT :SIDES [FD :LENGTH RT360/:SIDES] 

END 

This procedure tells the turtle how to draw a SHAPE 
whose features will be found in boxes that the proce¬ 
dure refers to as LENGTH and SIDES. The procedure’s 
first instruction is to look in its SIDES box for a 
number, and REPEAT the following list of commands 
that number of times — go FORWARD the dimension 
found in its LENGTH box, and turn RIGHT however 
many degrees is equal to 360 divided by the number it 
found in the box named SIDES. 

At the moment that you type 

SHAPE 73 4 or SHAPE 15 6 
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Logo puts the 73 or 15 in a location (think of it as a box) 
that the SHAPE procedure refers to as LENGTH and 
puts the 4 or 6 into another location that SHAPE refers 
to as SIDES. 



It is important to remember that LENGTH and SIDES 
are names that SHAPE uses to keep track of these num¬ 
bers, and that no other procedure knows what SHAPE 
keeps in the boxes or even that the boxes exist! Further, 
those boxes cease to exist after SHAPE finishes its 
work. 


3: h ' f ' 1 

Please note, however, that if SHAPE had 
called any subprocedures during its execu¬ 
tion, those subprocedures would also have 
had access to the values in SHAPE’S boxes. 

Before getting back to MAKE, define SHAPE as shown 
above and then type 

SHAPE 50 5 

While SHAPE is operating, it executes the command 
FD :LENGTH, telling FD to move the turtle forward 50 
turtle steps, the number of steps in the box LENGTH. If 
the 50 is still left in the box after SHAPE has finished 
drawing its pentagon, you should still be able to use it. 

Try typing FD :LENGTH to see what Logo will do. Your 
screen should look like this: 

FD:LENGTH 

THERE IS NO NAME LENGTH 


Terrapin Logo Tutorial 


W-ll 




Words and Lists 


Now back to MAKE. MAKE can assign a value to a box 
or change the value that is in the box, and it can do it 
equally well in or out of a procedure. 

Type MAKE “LENGTH 10 to create a box named 
LENGTH and place a 10 in it. Type DRAW to clear the 
screen, and then type FD :LENGTH. The turtle will 
move forward 10 turtle steps. Type 

RT144 
FD :LENGTH 

This box did not disappear. It still exists and still has a 
10 in it. Type 

PRINT: LENGTH 

Logo should print 10. 

This kind of variable, defined outside of a 
procedure, is called a Global variable. See the 
explanation of global and local variables in 
the chapter titled Computation. 


Since there is already a box called LENGTH with a 10 
in it, you might think that you could now type just 
SHAPE 4 to get a four-sided shape with a size of 10. 

If you try that, Logo will complain that SHAPE needs 
more inputs. Because SHAPE was defined to take two 
inputs, it must always be given two inputs. 

Type 

SHAPE 50 4 
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When it executed FD :LENGTH, how far did the turtle 
move? Not 10, but 50. And now that the square is 
drawn, type 

FD :LENGTH 


How far did the turtle move this time? Not 50, but 10. 
Type PRINT :LENGTH to Logo. Again Logo should 
print 10. 

A summary of what happened: You told Logo to MAKE 
“LENGTH 10. Both before and after running SHAPE 
(with its own variable of the same name set to 50), you 
were able to show that LENGTH really did have the 
value 10. Whether you typed PRINT :LENGTH or FD 
:LENGTH, LENGTH represented 10. 

However, SHAPE, even though it had a variable of the 
same name, did not seem to know about the 10 and did 
not change it to 50, even though that is what SHAPE 
considered LENGTH to be. 


Until you have had a chance to write enough proce¬ 
dures and have had more experience with variables 
and values, they tend to remain confusing, but re¬ 
membering one principle may help. 



When a procedure has variables in its title line, the 
values of those variables inside the procedure depend 
entirely on the values given to the procedure as inputs. 
This is true regardless of the existence or values of 
variables with the same names that may be found 
elsewhere in a program. 
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One more experiment with variables and MAKE before 
returning to QUICKDRAW. Type 

PRINT :NUM 

It should reply: 

THERE IS NO NAME NUM 

(If it prints something different from that, type 
ERNAME "NUM 
and start again!) 

Now type 

MAKE "NUM 5 and on the next line type 
PR :NUM 

(PR is the abbreviation for PRINT.) Now it should reply 
by printing a 5. 

Define these two very similar procedures: 

TO F00 
PR :NUM 

MAKE "NUM 2 * :NUM 
PR :NUM 
END 

TO FOOL :NUM 
PR :NUM 

MAKE "NUM 2 * :NUM 
PR :NUM 
END 
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After you have defined them and before you run them, 
type PR :NUM again. Logo will still reply 5. 

Now, in order and one at a time, type the following 
commands to Logo. We will explain the mystery 
afterward. 

F00 

PR :NUM 
FOOL 4 
PR :NUM 
F00 

PR :NUM 
FOOL 3 
PR :NUM 

What’s happening?! FOO and FOOL have absolutely 
identical insides, and yet their behavior is so very dif¬ 
ferent. You printed the value that is inside the box 
named NUM before and after running each procedure. 

FOO knew about what was in that box and also 
changed it, but FOOL did neither. Before and after 
FOOL, the value in NUM remained the same — even 
though it appears to have two completely different 
values inside FOOL. 

The explanation is in the title line. As mentioned ear¬ 
lier, when a procedure’s title line contains a variable 
name in it, that name refers to a totally private box 
created just for that procedure. 

So FOO could use the value of NUM that was lying 
around at the time, and could also change it. But FOOL 
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had access only to its private box, which happened to 
have the same name, but is altogether a different box. 

Whenever the name NUM was used inside FOOL, 
FOOL took it to mean its own box of that name. It was 
not the public box named NUM that FOOL printed and 
changed, but only FOOL’s NUM. As soon as FOOL 
stopped running, it took its NUM with it. 


When you then typed PR :NUM again, you had no ac¬ 
cess to FOOL’s private box; instead, you referred to 
everyone’s public box named NUM. The private vari¬ 
able is called a local variable, and the public one is a 
global variable. 


Logo version 2.0 includes the command 
LOCAL, which allows you to create local 
variables without declaring them in the title 
line. An example: 





TO DEM0.L0CAL 
LOCAL "VALUE 
MAKE "VALUE RC 
PR: VALUE 
END 


Consult page C-7 for a full discussion of LOCAL. 



Admonition: Unless you really intend to make a vari¬ 
able public and available for everybody to use and 
change, don’t make global variables. They are trouble¬ 
makers (in large programs) precisely because any¬ 
body is free to fool around with them. 
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On the other hand, the great virtue of global variables 
is that they survive even after a procedure is finished. 
When you need to have a value remembered even after 
the procedure that created it is finished working, use a 
global variable. 

Otherwise avoid global variables. It is almost never 
good style to use MAKE when passing a variable to a 
procedure in the title line can be done easily. 

Projects with MAKE: More Extensions to 
QUICKDRAW 

5. Teach EASY to recognize digits and use them to 
multiply the effect of the very next keypress. For 
example, the effect of typing 3F, should be either FD 30 
or REPEAT 3 [FD 10]. You decide which. 

If the character 3 is typed to RC, RC’s output, which 
EASY knows as CHTR, can be used both in tests such 
as IF :CHTR = 3 and in numerical expressions such as 
:CHTR + 5. You may also find the Logo primitive 
NUMBER? useful. The test NUMBER? :CHTR is true 
for all characters 0 through 9. 

Project 5 is a reasonable use of MAKE because it re¬ 
quires remembering a number from one execution of 
EASY to the next. A command like MAKE “MULTIPLE 
:CHTR will put the current value of CHTR into a box 
named MULTIPLE. 

The contents of the CHTR box will be forgotten when 
EASY stops, but since MULTIPLE will be a global vari¬ 
able, the value in that box will not be forgotten and can 
be used until it is changed. 
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6. Type MAKE “PENPOS [DOWN] and then define 
and experiment with the following procedure. 

TO PEN 

IF :PENP0S = [DOWN] PU MAKE "PENPOS [UP] 

ELSE PD MAKE "PENPOS [DOWN] 

PRINT SENTENCE [THE TURTLE'S PEN IS NOW] :PENP0S 
END 

The procedure contains at least one primitive 
(SENTENCE) that you have not seen before, and an in¬ 
teresting use of a global variable. When you under¬ 
stand how this procedure works, include it in EASY. 

7. Write a similar procedure for ST and HT. 

Programs that Interact without Waiting: RC? 

Until some key has been pressed, RC cannot output a 
message saying which key. That is why QUICKDRAW 
always waits until a character is typed. Every time it 
runs RC, RC waits until it has something to report back 
to EASY. 

Sometimes, though, you want the program to keep 
going while waiting for the user to type something. For 
example, in video-action-games, objects are supposed 
to keep moving on the screen whether or not the player 
touches the keys or twiddles the knobs. 

Let’s design a program in which we drive the turtle like 
a car. The turtle will always be moving, but we can in¬ 
crease or decrease its speed and can change its direc¬ 
tion. In order to have it moving constantly, we will 
need a loop something like this: 
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TO LOOP 
FD :DIST 
LOOP 
END 

Make DIST have some small initial value, like 1 or 2, by 
typing MAKE “DIST 2. Then run LOOP. The turtle will 
slowly crawl across the screen. 

To be more flexible, LOOP should check to see if the 
person has typed anything, and, if so, should take 
some action before moving the turtle again. RC? is the 
primitive that checks to see if a character has been 
typed. 

The logic is this: If the person has typed a character, 

IF RC? 


then read the character, and control the turtle accord¬ 
ingly: 

EASY RC 

So the completed LOOP would look like this: 

TO LOOP 
IF RC? EASY RC 
FD :DIST 
LOOP 
END 

Define LOOP and experiment with it using your EASY 
just as it is. How does LOOP behave differently from 
QUICKDRAW? 
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As it is written, EASY does not give sensitive control 
over the speed of the turtle. Pressing F does give a burst 
of distance, but the turtle settles back to the same slow 
crawl immediately afterward. 

Look at LOOP to see what determines the turtle’s 
speed. Now study EASY to see why it does not alter 
that speed. Even though EASY is not quite what is 
needed for this program, still it provides a number of 
features that are just as appropriate for LOOP as they 
are for QUICKDRAW. 

So that you can make changes to an EASY-like proce¬ 
dure without changing EASY itself (which is just fine 
for QUICKDRAW), make a copy of EASY using a dif¬ 
ferent title. To do this, edit EASY and change the title 
in the editor to ACTION. Then, when you define the 
procedure, it will be named ACTION. 

EASY is still around, as before, but a new copy titled 
ACTION now exists also. If you have been doing the 
projects, your copy of EASY (and, therefore, ACTION) 
will no longer look like the original. But if it did, it 
would look like this: 

TO ACTION :CHTR 
IF :CHTR = "F FD 10 
IF :CHTR = "R RT15 
IF :CHTR = "LLT15 
IF :CHTR = "D DRAW 
IF :CHTR = "Q NODRAW TOPLEVEL 
END 

Do you see that although ACTION controls the turtle’s 
movement, it does not change :DIST, and therefore 
does not affect the turtle’s speed? 
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Instead of having F move the turtle directly, it could 
increase the distance that the turtle moves each time 
through LOOP. The logic might be like this — If the 
character typed is F 

IF :CHTR = "F 

make the distance to travel 2 greater than it was the last 
time. 

MAKE "DIST :DIST + 2 

If F stood for Faster, S could stand for Slower and de¬ 
crease DIST. 

A working version of ACTION might look like this: 

TO ACTION :CHTR 
IF :CHTR = "R RT15 
IF :CHTR = "L LT15 

IF :CHTR = "F MAKE "DIST :DIST + 2 ; FASTER 
IF :CHTR = "S MAKE "DIST :DIST - 2; SLOWER 
IF :CHTR = "D DRAW 
END 

When you press the F key, the distance that the turtle 
will move during each loop increases by 2 steps. The S 
key decreases the number of steps per loop. 

Define ACTION in one of the ways suggested above, 
and write a START procedure like this one: 

TO START 
MAKE "DIST 0 
LOOP 
END 
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Remember to edit LOOP so that it uses ACTION in 
place of EASY. 

Now type START and experiment with controlling the 
turtle. With practice, you can learn to control it well 
enough to draw even complicated figures. 

Projects with RC, RC?: Extensions to LOOP 

8. By changing LOOP so that both the turtle’s position 
and heading are updated each time through the loop, 
the turtle can then draw curves. Here is how LOOP 
would look: 

TO LOOP 

IF RC? ACTION RC 
FD :DIST 
RT :ANG 
LOOP 
END 

Design and make some changes to ACTION and 
START to take advantage of the new capabilities of 
LOOP. 

9. Add a feature to stop the turtle. Experiment also 
with three new commands, one of which does MAKE 
“DIST (- :DIST), another of which does the same for 
ANG, and the third of which makes both DIST and 
ANG negative. Try to gain enough skill at controlling 
the turtle to get it to write your name in cursive script. 


W-22 


Terrapin Logo Tutorial 



Words and Lists 


INTERACTIVE LANGUAGE 

Don't Skip This Section! 

MEMBER?, EMPTY? 

Right now, please define two procedures, MEMBER? 
and EMPTY?, that will be used throughout the re¬ 
mainder of the chapter. (If you have Terrapin Logo 
Version 2.0 or beyond, these are already provided as 
primitives, so you need not define them yourself and 
may skip to the next section.) 

Type carefully. Make certain that you leave no space 
between: and the word that follows it, and that you do 
not leave out the question marks in the procedure 
titles. 

TO MEMBER? :ELEMENT :0BJECT 
IF EMPTY? :OBJECT OUTPUT "FALSE 
IF:ELEMENT = FIRST :0BJECT OUTPUT "TRUE 
OUTPUT MEMBER? :ELEMENT BUTFIRST :0BJECT 
END 

TO EMPTY?:OBJECT 

OUTPUTANYOF :0BJECT = [] :0BJECT = " 

END 

It is worth the effort to save these procedures in their 
own separate file as well as with the work you are 
doing in this chapter. That will allow you to read them 
into your workspace whenever you need them without 
reading in everything else you have ever worked on. 
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For now, these procedures will be explained only as if 
they were primitives; we will show how they are to be 
used, but not how they work. Later in the chapter, both 
will be explained in greater detail. 

MEMBER? takes two inputs—a word and a list—and 
outputs the value “TRUE if the word is an element of 
the list. (You can also give MEMBER? a character and a 
word, and it will return “TRUE if the character is part 
of the word.) 

EMPTY? takes one input and outputs “TRUE if the 
input is the empty list or the empty word. We will 
explain this in greater detail later on. 

To see what MEMBER? does, try the following com¬ 
mands. 

MEMBER? “DOG [THE DOG BARKED] 

MEMBER? “CAT [THE DOG BARKED] 

MEMBER? "U"AEI0U 
MEMBER? "G "AEIOU 
MEMBER? "4 "1234XYZ 

Your screen should look like this: 

MEMBER? “DOG [THE DOG BARKED] 

RESULT: TRUE 

MEMBER? "CAT [THE DOG BARKED] 

RESULT: FALSE 
MEMBER? "U "AEIOU 
RESULT: TRUE 
MEMBER? "G "AEIOU 
RESULT: FALSE 
MEMBER? "4 "1234XYZ 
RESULT: TRUE 


If these are not the results you get, check the proce¬ 
dures carefully, character by character, to make certain 
that they are exactly as shown above. After you have 
checked, save the procedures. 

Some Friendly Introductions: SENTENCE 
(SE), REQUEST(RQJ, LPUT, FPUT 

If you did project 6 above, you have already seen the 
Logo primitive SENTENCE used to combine two 
pieces of text into a single sentence. In the procedure 
in project 6 the line read 

PRINT SENTENCE [THE TURTLE'S PEN IS NOW] :PENP0S 

When PENPOS was [DOWN], the effect of that line was 
to print 

THE TURTLE'S PEN IS NOW DOWN 

When PENPOS was [UP], the effect of that line was to 
print 

THE TURTLE'S PEN IS NOW UP 

Define the procedure GREET. You may wish to spell 
out PRINT and SENTENCE fully or to abbreviate them. 
Both forms of the procedure are shown. 

Fully spelled out: 

TO GREET:PERS0N 

PRINT SENTENCE [NICE TO MEET YOU,] :PERS0N 
END 
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or abbreviated: 

TO GREET :PERS0N 
PR SE [NICE TO MEET YOU,] :PERSON 
END 


Run the procedure GREET, giving it a person’s name as 
input. For example: 

GREET [GEORGE] 

GREET [GEORGE WASHINGTON] 

GREET has a simple behavior. Whatever its input, 
GREET prints a sentence composed of the words NICE 
TO MEET YOU (with a comma at the end) and that in¬ 
put. 

Now we will create a procedure which uses GREET in 
a brief friendly conversation. The behavior of the new 
procedure will be a bit more complex. It will start up 
with no information at all (no input), and will ask the 
person to type his or her name. Then it will use GREET 
to greet the person. To do this, it must give GREET an 
input consisting of whatever the person typed. 

Let’s write the procedure as we review its behavior. It 
needs no inputs, so its title line could be TO FRIENDLY. 
It asks the person it meets to type a name: PR [WHAT’S 
YOUR NAME?]. It then gives GREET an input con¬ 
sisting of whatever the person types: GREET REQUEST. 


REQUEST (abbreviated RQ) is a Logo primitive that 
tells a procedure 1) to wait for a person to type a line 
and press <RETURN> and 2) to output that line as a 
list that can be used by a procedure. 
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Here, REQUEST’S output is used as GREET’s input. 
Define FRIENDLY. 

TO FRIENDLY 
[WHAT'S YOUR NAME?] 

GREET REQUEST 
END 

To run it, type FRIENDLY (remember, no input!) and 
press <RETURN>. When it asks, type your name (and 
press <RETURN>). You do not need to type brackets 
or other special decorations; just your name will do. 
Run it again, but this time, when it asks for your name, 
press <RETURN> without typing anything at all. 
Your screen will now look something like this: 

FRIENDLY 

WHAT'S YOUR NAME? 

HANNIBAL THE TURTLE 

NICE TO MEET YOU , HANNIBAL THE TURTLE 

FRIENDLY 

WHAT'S YOUR NAME? 

NICE TO MEET YOU, 

REQUEST can return an empty list, indicating that the 
person typed nothing, but GREET is not smart enough 
to know what to do about that. It would be nicer if 
GREET could recognize an empty input and respond 
differently. 

Here’s a version of GREET that does that. We will use 
the command EMPTY? to check for bashful typists. 
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TO GREET:PERSON 

IF EMPTY? :PERS0N PR [OH! YOU MUST BE QUITE SHY.] STOP 
PR SE [NICE TO MEET YOU,] :PERSON 
END 


Edit GREET to insert the new line and try it again, as 
you did before. 

FRIENDLY 

WHAT'S YOUR NAME? 

HANNIBAL THE TURTLE 

NICE TO MEET YOU, HANNIBAL THE TURTLE 

FRIENDLY 

WHAT'S YOUR NAME? 


OH! YOU MUST BE QUITE SHY. 

This time GREET is better about handling the blank re¬ 
sponse, but it apparently has a terrible memory! After 
all, it has already met HANNIBAL THE TURTLE, and 
should have said something more like GOOD TO SEE 
YOU AGAIN rather than NICE TO MEET YOU. 



Helping the computer remember names brings in a 
whole new idea. For GREET to remember, it must be a 
learning program. It must keep a list of the people it 
has already met, and, when it gets a person’s name, it 
must be able to check to see whether that name is on its 
list. If the person is a member of the list of known 
people 
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IF MEMBER? :PERS0N :KN0WN 

then GREET should print some appropriate response 
and then stop. 
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PR SE [GOOD TO SEE YOU AGAIN] :PERSON STOP 

If the person is not a member of that list, then GREET 
should say what it did before. It should also stick the 
person’s name at the end of the list of known people. 
That is accomplished by taking the list out of the box 
named KNOWN, tacking the person’s name at the end 
of it, and placing the result back in the box. 

MAKE "KNOWN LPUT :PERS0N :KN0WN 

LPUT takes two inputs, an object (in this case 
PERSON) and a list (in this case KNOWN), and puts 
the object in the list as the last element. LPUT ab¬ 
breviates LastPUT, but there is no fully spelled out 
name of the primitive. (Its companion FPUT, for 
FirstPUT, will put in an appearance later on.) 

Here is GREET as it is now designed. 

TO GREET :PERS0N 

IF EMPTY? :PERS0N PR [OH! YOU MUST BE QUITE SHY.] STOP 
IF MEMBER? :PERS0N ;KN0WN PR SE [GOOD TO SEE 
YOU AGAIN] :PERS0N STOP 
PR SE [NICE TO MEET YOU,] :PERS0N 
MAKE "KNOWN LPUT :PERS0N :KN0WN 
END 

Edit it to include the new changes, and when it is 
defined, type 


FRIENDLY 

What happens? Ah! Logo complains that there is no 
list of known people. 
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Before GREET has met any people, the list may have no 
names in it, but it must still exist in order to be 
checked. That is why Logo said 

THERE IS NO NAME KNOWN 

This problem is solved by typing 

MAKE "KNOWN [] 

Type 

PRINT: KNOWN 

and notice that just an empty line is printed. Now type 
FRIENDLY 

again. After it finishes greeting you, type 
PRINT:KNOWN 

again and note what you see. Play with it for a while, 
perhaps by typing 

REPEAT 10 [FRIENDLY] 

Introduce new people and reintroduce old people. 
Type 

PRINT:KNOWN 

to see what its memory contains. (If the program is not 
being friendly, check for errors.) 
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Finally, some fine points. When the person has been 
too shy to type a name, let GREET be a bit pushier. In¬ 
stead of just stopping, it can ask again. How? By run¬ 
ning FRIENDLY before stopping. The line might look 
like 

IF EMPTY? :PERSON PRINT [DON'T BE SHY. PLEASE TELL 
ME.] FRIENDLY STOP 

Edit GREET again, making this last change, and exper¬ 
iment with it. Notice that even after you have edited 
GREET it remembers the people it had met earlier. Any 
time you want to, you can make it forget everybody by 
typing 

MAKE "KNOWN [] 

to empty out its list. You can also type 
EDIT NAMES 

and change the contents of the name KNOWN at will. 
When you do that, make sure when you are finished 
that all of the left and right brackets match up prop¬ 
erly! 

There are two more features that would make GREET 
seem really like an intelligent program. Try typing I 
DON’T WANT TO TELL YOU, or NONE OF YOUR 
BUSINESS, or even MY NAME IS PAUL when 
FRIENDLY asks your name. GREET should certainly 
not say NICE TO MEET YOU, NONE OF YOUR 
BUSINESS. 
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It would be nice if GREET could be given enough 
knowledge of English to recognize at least these cases 
and respond properly. Also, it would be nice if both 
GREET and FRIENDLY had a bit more variety in what 
they said. You will be able to make both of these im¬ 
provements by the end of this chapter. 

First you must learn some new primitives and pro¬ 
gramming techniques. 

Interlude: Clearing the Text Screen with 
CLEARTEXT 

Type CLEARTEXT to Logo. While working on this 
chapter you will often need to clear the text screen. 
CLEARTEXT has no abbreviation, so you might want 
to define an abbreviation. 

TOCT 

CLEARTEXT 

END 

After defining CT, and without typing any graphics 
commands, mess up the text screen some. Typing the 
following lines should create plenty of mess: 

ABC 

+ 


Messy enough? Now type CT. Ah, if only all cleaning 
up were that easy. 
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Objects: Producing RESULTS as Output, and 
Using Them as Input 

The best way to come to understand Logo objects well 
is to use them in a variety of contexts. A formal defini¬ 
tion will come later, but some experiments are needed 
now. 

Type 

5 <RETURN> 

[APPLES AND ORANGES] <RETURN> 

"BEEP <RETURN> 

(Don’t forget the double-quote at the beginning of 
“BEEP.) 

In each case Logo responds RESULT: followed by the 
object you typed. 

5 

RESULT: 5 

[APPLES AND ORANGES] 

RESULT: [APPLES AND ORANGES] 

"BEEP 

RESULT: BEEP 


In two of the cases Logo typed exactly what 
you typed. But in the third case, Logo typed 
the word BEEP without a double-quote mark. 

Here is the explanation. The object you typed 
was the word BEEP. The double-quote mark 
was merely to tell Logo that you were typing 
an object and not the name of a procedure. 
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Typing “FRIENDLY (with the quote-mark) 
will have the same effect. Typing FRIENDLY 
(without the quote-mark) will run the proce¬ 
dure that you wrote in the last section. 

The double-quote is not part of the object; it is 
just a marker. Neither numbers nor lists can 
be procedure titles, so Logo does not need any 
special markers to help it recognize those as 
objects. 

Also, words that are already inside lists, like 
APPLES or AND, need no special markers. 
Logo will not try to run them unless you 
explicitly tell it to. 


If an object is “given to” Logo in immediate mode, 
Logo announces it with the word RESULT:. If an object 
is “given to” PRINT as an input, PRINT prints the ob¬ 
ject on the screen. 

PRINT, too, changes the appearance of what you type 
slightly. Using the same three examples, PRINT 5, 
PRINT [APPLES AND ORANGES], and PRINT “BEEP, 
both of the last two are printed without their punctua¬ 
tion. 

PRINT doesn’t show the marker or the outer brackets 
that surround a list, but merely the object and the list 
elements themselves. 

Even though we have been playing with a number (5), 
J ' a list ([APPLES AND ORANGES]), and a word (BEEP) 
—all abstractions—we think of these very concretely, 


W-34 


Terrapin Logo Tutorial 



Words and Lists 


as if they were solid objects that can be tossed back and 
forth among players in a game. 

This metaphor is very useful in Logo programming. 
Procedures are the players. You make up the rules of 
the game, deciding what the behavior of each proce¬ 
dure will be, what object (if any) a procedure should 
create, and who should receive the object after it is 
made. 

There are ways of giving objects to Logo in immediate 
command mode other than by placing them there 
yourself. You can let a procedure create them and place 
them there. 

At the beginning of the section, you typed MEMBER? 
“G “AEIOU and Logo announced that the object 
FALSE was given to it as a result. Here are some other 
ways of getting procedures to hand objects to Logo. 

RANDOM 100 
FIRST: KNOWN 

The primitive RANDOM outputs a random number 
from 0 up to (but not including) its input. FIRST out¬ 
puts the first element of the object that is its input. (In 
this case, the object is a list from the box named 
KNOWN that you created earlier in the chapter.) 

In the next two lines are two other primitives that out¬ 
put objects. It may be harder to recognize the primi¬ 
tives this time, because you are probably not used to 
thinking of them as primitives. 

5 + 6 
: KNOWN 
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The first primitive is the +. It takes two inputs, one on 
each side of it, and outputs their sum if they are num¬ 
bers. 


The second primitive is the: (which is a special kind of 
abbreviation for THING). It takes one input, attached to 
it on the right, and outputs the object that is found in 
the box of that name. (The box, KNOWN, was created 
earlier as part of the FRIENDLY program.) 



There are only two ways of creating objects. You can 
put them there, yourself, or a procedure or primitive 
can create them. 


Some primitives create objects as output and others 
don’t. For example, if you type FIRST 37, Logo an¬ 
nounces the object that FIRST outputs. (What is it?) 
But if you type PRINT 37, the object simply appears on 
the screen and cannot be used by other commands. 


Some primitives require objects as input and others 
don’t. If a primitive does need an object as input, it 
does not care whether that input is put there by you, or 
is the result of running another primitive. 


So, in the command PRINT FIRST :KNOWN, the object 
that PRINT needs as its input is created by FIRST and 
supplied as its output. 

Writing Procedures that Create and Output 
Objects: OUTPUT 

Except for the two procedures MEMBER? and 
EMPTY? with which we began this section, you have 
never written a procedure that creates an object and 
outputs it for another procedure to work with. Such a 
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procedure is vastly more powerful and flexible than 
anything we have discussed up to now. 

To begin, let’s define the procedures TEN and 
DOUBLE. 

TO TEN 
OP 7 + 3 
END 

TO DOUBLE :NUMBER 
OP 2 * :NUMBER 
END 

Now, typing TEN to Logo gets the response RESULT: 
10. TEN can be used in computations. 

Type 

PRINT DOUBLE TEN 

The OUTPUT command (or its abbreviation, OP) tells 
these procedures to stop and “output an object” or “re¬ 
turn a value” or “produce a result.” To see what all this 
means, try the following experiments by typing these 
lines to Logo: 

10 

TEN 

DOUBLE 5 
5* DOUBLE 1 

When you typed the number 10, you were handing 
Logo the object 10 directly. The object 10 has the value 
10 or results in a 10 lying around. Logo announces that 
with the message, RESULT: 10. 
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When you typed the procedure name TEN, it com¬ 
puted a value and then it handed the value (the object 
10) to Logo. Similarly, when you typed the procedure 
name DOUBLE, you handed it the object 5 to work 
with. It computed the value 10, and handed that back 
as the result. 

In both of these cases, you may think of the procedures 
as having replaced themselves by the value they out¬ 
put. That makes the last line especially clear. If 
DOUBLE 1 replaces itself with the value 2, then the 
line becomes 5*2. 


We often use the word “object” to refer 
equally to words (including such things as 
numbers and letters) and lists (including 
simple sentences or complex data structures). 

We do this because Logo can easily combine 
words and lists to make other words and lists, 
break words and lists into pieces, or pass 
words and lists back and forth between pro¬ 
cedures as if they were concrete, solid ob¬ 
jects. 

When we need to specify what kind of object, 
we refer to “numbers” or “words” or “lists,” 
but the word “object” refers to them all. 

The word “value” sometimes sounds more 
natural than “object” when we are referring 
to the result of some computation, but there is 
really no important difference between the 
words. 
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Here is a more useful application of the same sorts of 
procedures. 

TOPI TO CIRCUMF :DIAMETER 

OUTPUT 3.14159 OP PI * :DIAMETER 

END END 

Having a procedure that figures out the circumference 
of a circle, given its diameter, has a practical applica¬ 
tion in Logo. Among other jobs, it can be used in a 
graphics procedure to draw circles of a given size. 

All circles in Logo are drawn by drawing short line 
segments, turning a little, and repeating the process 
until the circle closes. The smaller the line segments, 
of course, the smaller the circle. 

But how do we determine the length of the segments if 
we want a circle of a very specific size? If the circle is 
composed of twenty segments, then each one is one- 
twentieth of the circumference. If it is drawn with 
twelve segments, then each is one-twelfth of the cir¬ 
cumference. 

Clearly, then, to draw a circle of a specific diameter, 
we must first know the circumference. Then we can 
divide it into equal parts, and repeatedly draw one 
of these parts and turn the appropriate amount. 

TO CIRCLE .DIAMETER 
ARC 20 ( CIRCUMF :DIAMETER ) /20 
END 

TO ARC SEGMENTS :CH0RD 
REPEAT SEGMENTS [FD :CHORD RT 18] 

END 
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CIRCLE 40 RT180 CIRCLE 40 

The following definition of ARC gives a 
slightly more symmetrical placement of the 
circles on a vertical line. Figure out why. 

TO ARC SEGMENTS :CH0RD 
FD:CHORD/2 
RT 18 

REPEAT SEGMENTS -1 [FD :0H0RD RT 18] 

FD :CHORD/2 
END 

It is useful to have a definition of CIRCLE that 
curves to the left as well as this one that turns 
to the right. You can also define half- and 
quarter-circles using the same ARC proce¬ 
dure. 


The objects these procedures manipulated were all 
words - in fact, only numbers. Now back to lists. 
Define these two procedures. 

TO PEOPLE 

OUTPUT [SANDY CHRIS [THE TURTLE] DANA LEE 
PAT DALE] 

END 

TO ACTIONS 

OUTPUT [LOVES [DREAMS ABOUT] KISSED 
HATES [CAN'T STAND] LIKES] 

END 
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We have chosen the names PEOPLE and 
ACTIONS as good descriptions of the nature 
of the procedures. You will be using these 
procedures often, so you might like to choose 
names that are shorter or easier to type, like 
PPL and ACTS, or NOUNS and VERBS, or 
just N and V. 

As you develop more complex programs, it 
will become especially important that you 
choose procedure titles and variable names 
that help you remember what their purpose 
is. The best policy is to choose names that are 
easy in two ways: easy to type and easy to re¬ 
member. 



These procedures contain instruction lines that are too 
long to fit neatly on the screen, but you should con¬ 
tinue typing normally, without pressing <RETURN> 
when you get to the edge of the screen. Logo will place 
a! at the end of the screen to indicate that your line 
continues past there, but will continue to show the rest 
of your typing on the next line. 


Type these procedures accurately, being particularly 
careful about getting the left and right brackets in the 
correct places. (Notice that they are the square brack¬ 
ets, and not parentheses! The brackets are typed as 
SHIFT-N and SHIFT-M on the Apple II and Apple 11+.) 



Once you are in the editor, you can type any 
number of procedures before pressing 
CTRL-C to define them. (But remember you 
must type END after each procedure before 
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starting the next one.) In this case it makes lit¬ 
tle difference whether you define the proce¬ 
dures one by one or both together. Sometimes, 
though, you will find it very convenient 
to be able to look at one procedure while you 
are defining another. 

The only behavior of these procedures is to output a 
list. PEOPLE outputs a list of seven names. Six of those 
names are words, but one of them, THE TURTLE, is it¬ 
self a list of two words. 

ACTIONS also outputs a list. That list contains only six 
elements, four of which are single words and two of 
which are lists of two words each. 

To demonstrate that these procedures output objects, 
type PEOPLE to Logo. Then type PRINT ACTIONS. 
Your screen should look something like this. 

PEOPLE 

RESULT: [SANDY CHRIS [THE TURTLE] DANA L 
EE PAT DALE] 

PRINT ACTIONS 

LOVES [DREAMS ABOUT] KISSED HATES [CAN’T 
STAND] LIKES 

When Logo cannot fit everything onto one line, it 
breaks the line where it must, and continues on the 
next line. (Note that a! does not appear at the end of the 
first line in immediate mode, unlike in edit mode.) 
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Making One Procedure’s Output into Another 
Procedure’s Input: OUTPUT (OP), FIRST, 
BUTFIRST(BF), LAST, BUTLAST(BL), 
SENTENCE (SE), WORD 

Clear the text screen. 

What object does FIRST PEOPLE output? (Type FIRST 
PEOPLE to check if you want to.) 

Logo also has a procedure BUTFIRST which outputs 
all but the first element of its input. Type BUTFIRST 
PEOPLE to see the object it outputs. And what is the 
FIRST of that object? Type FIRST BUTFIRST PEOPLE 
to see. 

What object would BUTFIRST output if its input is the 
object created by BUTFIRST PEOPLE. (In other words, 
what object is created by BF PEOPLE, and what is the 
BF of that?) Type BF BF PEOPLE or BUTFIRST 
BUTFIRST PEOPLE to check. 


And what is the FIRST of that object? Type FIRST BF 
BF PEOPLE to see. 



Remember to clear the text screen whenever it will 
help you see what you are doing. 


Here are some more experiments to do with PEOPLE 
and ACTIONS. They are all to get you familiar with 
some new primitives and passing objects between 
them. You may type abbreviated forms such as PR, SE, 
and BF, or fully spelled out forms, whichever you pre¬ 
fer, but don’t just sight-read these experiments. Do 
each of them and compare the results you get to the 
comments written before or after the experiments. 
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Logo can copy an object from either end of a list, 

FIRST ACTIONS 
LAST ACTIONS 

and from either end of a word 

PR FIRST "CAT 
PR LAST "CAT 


When FIRST or LAST receive a word as in¬ 
put, they output the corresponding (first or 
last) letter of the word. When they receive a 
list as input, they output the corresponding 
element of the list. 

BUTFIRST (BF) and BUTLAST (BL) output 
all but what FIRST and LAST output. It is im¬ 
portant to remember (and a common source 
of bugs for those who forget) that the BF or BL 
of a list is always a list. Thus, the BUTFIRST 
of [FD 30] is not 30, but [30]. 


FIRST of ACTIONS produced an object, a result. Logo 
can manipulate that object, taking its FIRST or LAST 
element, just as it can manipulate any other object. 

PR FIRST FIRST ACTIONS 
PR LAST FIRST ACTIONS 

Since FIRST ACTIONS is LOVES, its FIRST is L and its 
LAST is S. 
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Type: 

PR SENTENCE PEOPLE ACTIONS 
PR SE FIRST PEOPLE FIRST ACTIONS 

SENTENCE (abbreviated SE) glues any two objects to¬ 
gether into a sentence. The sentence of the lists output 
by PEOPLE and ACTIONS is a long one. The sentence 
of the first elements of those lists is SANDY LOVES. 

Type: 

PR (SE LAST PEOPLE LAST ACTIONS FIRST PEOPLE) 

By surrounding SENTENCE and its inputs with par¬ 
entheses, you can force SENTENCE to take more (or 
fewer) than two inputs. This is often very important in 
interactive language programs. 


The next series of experiments is particularly impor¬ 
tant as it forms the basis for the vast majority of the 
procedures you will use most in manipulating words 
and lists. It is, for example, at the heart of the 
MEMBER? procedure that you defined at the very be¬ 
ginning of this chapter. Clear the text screen. Do each 
experiment and note its behavior. 

PEOPLE 

BF PEOPLE or BUTFIRST PEOPLE 
BF BF PEOPLE 
BFBFBF PEOPLE 

Be certain you see the pattern in the results of the pre¬ 
vious four experiments before going on. Now predict 
the results of each of these experiments and then check 
your prediction by running the experiment. 
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FIRST PEOPLE 
FIRST BF PEOPLE 
FIRST BFBF PEOPLE 
FIRST BFBFBF PEOPLE 


Similar patterns hold for LAST and BUTLAST (BL). 

PR BUTLAST ACTIONS or PR BL ACTIONS 
PR LAST BL ACTIONS 


Finally, you can combine a whole bunch of these oper¬ 
ations into one command. 


PR (SE FIRST BF BF PEOPLE LAST BL ACTIONS [ME]) 

SENTENCE glues parts together to make a sentence. 
We added [ME] to try to add some interest. 



Logo also provides the primitive WORD, which glues 
parts together to make a word. Try this: 


PR WORD "C BF "SANDY 


Here are some more complicated expressions using 
WORD. 



; 


PR WORD BL FIRST PEOPLE "WICH 
PR WORD BL FIRST ACTIONS LAST BL PEOPLE 

Subprocedures for Cleaner Programming 

The primitives that Logo provides give immediate ac¬ 
cess to the first or last element of a list, or to the first or 
last character of a word, but what about the second, ^ 

third, or other elements? 
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One set of procedures to output the SECOND, THIRD, 
FOURTH, and FIFTH elements of an object is based on 
the experiments you tried above. Type these in, and try 
them out with the projects suggested. 

TO SECOND :0BJ 
OP FIRST BF:0BJ 
END 

TO THIRD :0BJ 
OP FIRST BFBF:0BJ 
END 

TO FOURTH : OBJ 
OP FIRST BFBFBF: OBJ 
END 

TO FIFTH : OBJ 
OP FIRST BFBFBFBF:OBJ 
END 

PR (SE FOURTH PEOPLE THIRD ACTIONS THIRD PEOPLE) 

PR (SE SECOND PEOPLE FIFTH ACTIONS THIRD PEOPLE) 

The new procedures allow you to write equivalent 
commands in different ways. For example, the two fol¬ 
lowing commands have the exactly the same effect: 

PR (SE FOURTH PEOPLE SECOND ACTIONS FIFTH PEOPLE) 

PR (SE FIRST BF BF BF PEOPLE FIRST BF ACTIONS FIRST BF 
BF BF BF PEOPLE) 

.. . but there are important differences. Not only is the 
first shorter to type, but it is also much more under¬ 
standable. Writing understandable programs is a mark 
of good programming. 
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A Generalization Using Recursion: ITEM 

Although these new procedures vastly simplify both 
the look and the typing of some list manipulations, 
they have some drawbacks. The most obvious is that in 
order to get PAT out of the PEOPLE list, we’d need a 
procedure SIXTH, and even if we wrote that, there 
would always be some list that was even longer. 

What we really need is one single procedure that can 
retrieve any member of a list. (If you have version 2.0, 
you can use the primitive ITEM to do this. Don’t skip 
ahead, though.) 

As a first step toward figuring out how to write it, let us 
carefully describe its behavior in English. Let us call 
this procedure NTH (as in fourTH, sixTH, sevenTH). 
We need to tell NTH two things: what number element 
to find, and what object to choose it from. Perhaps the 
whole title line will look something like this: 

TO NTH :N :OBJECT 

If N is 1, the procedure should just output the first ele¬ 
ment of the object. That instruction would look like 
this in Logo. 

IF :N = 1 OUTPUT FIRST :0BJECT 

and the whole procedure, so far, would look like this: 

TO NTH :N :OBJECT 
IF :N = 1 OUTPUT FIRST :0BJECT 
END 


W-48 



Words and Lists 


Create this procedure. At this stage you can use the 
procedure to get the first (but only the first) element of 
an object. Tty typing PR NTH 1 PEOPLE, and make 
sure it prints SANDY. 

That is the simplest situation. To come up with a good 
way of describing the other situations, let us examine 
them one by one. If N is 2 then we want NTH to output 
the first element of the next shorter object (the 
BUTFIRST of the object). The first element of an object 
is something NTH knows how to output, so it can do 
the job itself. In Logo, that might be translated this way: 

IF :N = 2 OUTPUT NTH 1 BF :0BJECT 

It will turn out that there is a neater way of doing 
things, but, for now, add that line to your procedure, 
too, and check to see that PR NTH 2 PEOPLE causes 
Logo to print CHRIS. You might also check PR NTH 1 
ACTIONS and PR NTH 2 ACTIONS. 

What if N is 3? NTH already knows how to find the 
second element of an object. To find the third element, 
we could simply find the second element in the BUT¬ 
FIRST of the object. In Logo, this is translated: 

IF :N = 3 OUTPUT NTH 2 BF :0BJECT 

If we continued in this way, we might add a bunch of 
instructions that look like this: 

IF :N = 4 OUTPUT NTH 3 BF :0BJECT 
IF :N = 5 OUTPUT NTH 4 BF :OBJECT 
IF :N = 6 OUTPUT NTH 5 BF :0BJECT 
IF :N = 7 OUTPUT NTH 6 BF :OBJECT 
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V __ 

But this does not solve the original problem. N might 
still be some number larger than we account for. For¬ 
tunately, there is a generalization we can make. In all 
of the cases where N is not 1, the procedure figures out 
what to do by looking for element N-l in the BUTFIRST 
of the object. 

We will repeat the logic: 

TO output the NTH element of an object we need to 
know N and the OBJECT. 

TO NTH :N :OBJECT 

If N = 1, we want to OUTPUT the FIRST of the OBJECT. 

IF :N = 1 OP FIRST :0BJECT ^ 

In every other case, we want to OUTPUT the N-l 
element (found by using NTH with an input of N-l) of 
the BUTFIRST of the OBJECT. 

OP NTH :N -1 BF :0BJECT 

Thus, the procedure might look like this (with 
OUTPUT abbreviated as OP): 

TO NTH :N :OBJECT 
IF :N = 1 OP FIRST :0BJECT 
OP NTH :N -1 BF :0BJECT 
END 

Edit NTH to make your copy look like this new version 
and try it out with values of N ranging from 1 to 7 and 
the PEOPLE list, or with values ranging from 1 to 6 and ' 

the ACTIONS list. It even works on words. 
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Remember that ITEM, which does the same thing as 
NTH, is provided as a primitive in Terrapin Logo ver¬ 
sion 2.0. 


Projects 




10. Write a procedure that takes a number from 1 to 
26 as input and outputs the corresponding letter of the 
alphabet. 

11. Using the procedure you wrote in project 10, write 
a new procedure that takes a list containing a number 
from 1 to 26 and again outputs the corresponding letter 
of the alphabet. 

12. Using the procedure you wrote in project 11, write 
a new procedure that takes a list of exactly two num¬ 
bers ranging from 1 to 26 and outputs a two-letter word 
with the corresponding letters of the alphabet. 

13. Using the procedure you wrote in project 12, write 
a new procedure that takes a list of exactly three num¬ 
bers ranging from 1 to 26 and outputs a three-letter 
word with the corresponding letters of the alphabet. 

14. Using the reasoning suggested in this chapter, 
write a new procedure that takes an arbitrary length 
list of numbers ranging from 1 to 26 and outputs the 
word composed of the corresponding letters of the 
alphabet. 

15. Using PEOPLE, ACTIONS, NTH (or ITEM), and 
Logo primitives PR, SE, and RANDOM, write a proce¬ 
dure that prints random sentences. (Write subproce¬ 
dures that do parts of the job and then combine them.) 
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Some Important Primitives Used in this 
Chapter 


The following summary gives a brief synop¬ 
sis of some commonly used primitives. It is 
by no means an exhaustive listing. If you 
don’t find what you want, consult the Tech¬ 
nical Manual. 


The primitives that manipulate Logo objects can be 
classified into four categories: 

1) Those that assemble objects 

2) Those that decompose objects 

3) Those that determine the nature of objects (i.e. Pre- 
dicates) 

4) Those that pass objects back and forth among pro¬ 
cedures, to and from variable names, and between 
the user and the procedure. 

Primitives that assemble Logo objects: 

WORD—Creates a word (a set of contiguous charac¬ 
ters) from two inputs. Inputs may be words, charac¬ 
ters, or procedures that output words/characters. 

SENTENCE (SE) — Creates a list from two inputs. 
Inputs may be words, lists, or procedures which 
output words/lists. Unlike LIST, SENTENCE returns 
a list containing no sub-lists. 
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LIST — Like SENTENCE, creates a list from two 
inputs. If either input is a list, it will appear as a 
sub-list in the newly created list. 
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FPUT—Creates a list from two inputs, the second of 
which must be a list. The new list created by FPUT 
consists of the first input (a word or list) followed by 
the elements of the second input. 

LPUT — Same as FPUT, except that LPUT creates a 
list consisting of the elements of the second input 
followed by the first input. 

Primitives that decompose Logo objects: 

FIRST—Outputs the first element of its input. If the 
input is a word, FIRST outputs a character; if the 
input is a list, FIRST outputs the first element of the 
list. 

BUTFIRST (BF) — Takes one input and outputs all 
but the first element. 

LAST, BUTLAST (BL) — Corresponding operations 
for last element of input. 

COUNT — Takes a single input, a word or a list. 
Outputs the number of characters in the word, or the 
number of elements in the list. (Remember that Logo 
treats a sub-list as a single element of the larger list.) 

ITEM — Takes two inputs; the first input must be a 
number, and the second must be a word or list. Out¬ 
puts the nth element of the second input. 

Note that COUNT and ITEM are not primitives in 
Logo versions prior to version 2.0. 
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Primitives that determine the nature of an object: 

WORD? — Outputs “TRUE if the input is a word; 
otherwise, outputs “FALSE. 

LIST? — Outputs “TRUE if the input is a list; other¬ 
wise, outputs “FALSE. 

NUMBER? — Outputs “TRUE if the input is a 
number; otherwise, outputs “FALSE. 

EMPTY?—Outputs “TRUE if the inputis the empty 
list or the empty word ([] or “ ); otherwise, outputs 
“FALSE. 

MEMBER? — Takes two inputs. Outputs “TRUE if 
the first input is an element of the second input; 
otherwise, outputs “FALSE. 

Note that MEMBER? and EMPTY? are not primi¬ 
tives in Logo versions prior to version 2.0. 

Primitive that passes an object from one procedure to 
another: 

OUTPUT (OP) — Causes a procedure to STOP and 
output an object to another procedure or primitive. 

Primitives that pass objects to and from variable 
names: 

MAKE — Takes two inputs. The first input becomes 
the name associated with the value of the second in¬ 
put. 


W-54 


Terrapin Logo Tutorial 


Words and Lists 


THING — Takes a variable name as an input. Out¬ 
puts the value associated with the name. A colon (:) 
prefixed directly to a name is the abbreviation for 
THING. Thus, THING “A is the same as :A. 


Primitives that pass objects to and from the user: 

REQUEST (RQ) — Waits for the user to type an input 
line followed by <RETURN>. Outputs the input 
line as a list to the calling procedure. 

READCHARACTER (RC) — Takes a character typed 
at the key board and outputs it as a word to the call¬ 
ing procedure. (Remember that RC does not wait for 
you to type <RETURN>.) 

RC? — Outputs “TRUE if a keyboard character is 
pending; otherwise, outputs “FALSE. 

PRINT (PR) — Prints its input on the screen (or on 
the printer, if specified) followed by <RETURN>. 
Input may be a word or a list. Notice that PRINT 
strips away all brackets and single-quotes. 


PRINTl — Prints its input on the screen without 
<RETURN>. Otherwise, exactly like PRINT. 



Also, note that certain Logo primitives can take extra 
inputs if the entire command is enclosed in paren¬ 
theses, e.g. (PRINT :LENGTH :HEIGHT :WIDTH). 
The primitives are LIST, WORD, SENTENCE, PRINT, 
and PRINTl. In this situation, LIST and SENTENCE 
may also take one input instead of two. 
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When using parentheses to indicate extra inputs, be 
sure to put a space before the closing parenthesis. 
Otherwise, Logo may assume that the parenthesis is 
part of the last input and complain that 

(primitive) NEEDS MORE INPUTS 

Definitions of Words and Lists 
CHAR 

We have not yet carefully defined Logo’s two types of 
objects, words and lists. A word, the simplest data ob¬ 
ject, consists of any continuous string of characters. 
You’ve seen several already; here are some other 
examples: 

90 

3.1416 

HI 

ANTIDISESTABLISHMENTARIANISM 

HENRY.THE.8TH 

XYZ 

R2D2 

As you can see, numbers are Logo words, long and 
short English words are Logo words, and even arbitrar¬ 
ily spelled symbols can be Logo words. Experience has 
already taught you that when you type several Logo 
words, spaces separate them instead of becoming part 
of them. 

If you need words that contain odd characters like 
<SPACE> in them, you can surround them with 
single-quotes. In the experiment that follows, type 
carefully, remembering to put in all the double-quote 
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characters and single-quote characters just as they are 
shown and to type a space between the first A and the 
B. Clear the text screen and type 

"'ABC' 

PRINT "'ABC' 

[ABC] 

PRINT [A BC] 

LAST "'ABC'and LAST [ABC] 

Your screen should look like this: 

"'ABC' 

RESULT: 'A BC' 

PRINT "'ABC' 

ABC 

[ABC] 

RESULT: [A BC] 

PRINT [A BC] 

ABC 

LAST "'ABC' 

RESULT: C 
LAST [ABC] 

RESULT: BC 

Notice that PRINT and other primitives (except OUT¬ 
PUT] strip away brackets and single-quotes. 

The following procedure ODDWORD creates a word of 
three other words, two of which have spaces in them. 
Define the procedure, typing carefully. Be sure to type 
a space before the second parenthesis. (See the preced¬ 
ing glossary if you’re not sure why.) 
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TO ODDWORD 

OP (WORD "'A BA' "'BYB' "OY ) 

END 

Now try these experiments with the odd word that 
ODDWORD outputs. 

PR ODDWORD 

PR NTH 1 ODDWORD 

PR NTH 2 ODDWORD 

PR NTH 3 ODDWORD 

PR NTH 10 ODDWORD 

PR LAST ODDWORD 

PR WORD NTH 2 ODDWORD ODDWORD 

PR WORD "'<space><space><space>’ ODDWORD 

Even though the word that ODDWORD outputs con- 
tains spaces, it is a word. Even though it looks like a list 
when printed, it behaves like a word. The LAST of it is 
the letter Y, not the word BOY. 


A space can be typed, and the single-quote character 
allows you to insert that space inside a word, but there 
are some characters that cannot be typed into a proce¬ 
dure at all. An example is the <CTRL> G character. If 
you were to try typing 

PR "'<CTRL> G' 


to Logo, it would say STOPPED! before you reached 
the second single-quote. But there is a way to include 
even strange characters like that in a word. The Logo 
primitive CHAR outputs the character which corre¬ 
sponds to the ASCII code it is given. 


W-58 


Terrapin Logo Tutorial 


Words and Lists 


The ASCn codes for <CTRL> A through <CTRL> Z 
are 1 through 26. The codes for capital A through capi¬ 
tal Z are 65 through 90, or 64 larger. Thus, you will get 
the same effect if you type 

PR CHAR 65 or PR "A 

Empty words — words that contain no characters at 
all, not even a space — also exist. When typing a com¬ 
mand to Logo, one way to indicate you are referring to 
the empty word is by following a “ with a <SPACE> or 
<RETURN>. (The <SPACE> separates the word from 
what follows, and is not part of the word.) 

See, for example, the procedure EMPTY?, which tests 
to see if its input OBJECT is either the empty word or 
the empty list. 

A list is an ordered collection of Logo objects. Its ele¬ 
ments can be words or other lists. Here are some exam¬ 
ples of lists: 

[COLORS [BLUE GREEN YELLOW RED] SIZES [LARGE 
SMALL]] 

[555-2561 617-4436 918-9961] 

[[FD 70] [RT120] [FD 70] [RT 120] [FD 70] [RT120]] 

[] 

The matched left and right square-brackets show the 
scope of a list. The first list contains four elements, the 
second and fourth of which are lists themselves and 
thus are grouped together with the square-brackets. 
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In each case, you typed 
WORD somethingorother "S 

suggesting a procedure that might look a bit like this: 

TO PLURAL :S0METHING0R0THER 
WORD -.SOMETHINGOROTHER "S 
END 

Of course, since names of procedures and variables are 
arbitrary, you could choose names that are easier to 
type. NOUN, or IT might be good choices for the vari¬ 
able name. 

TO PLURAL :N0UN 
WORD :N0UN "S 
END 

Why did we switch from quote CAT and quote DOG 
and quote HORSE to colon NOUN? When you typed 

WORD "CAT "S 

CAT was the word you wanted to attach the S to. In the 
procedure, the word NOUN only stands for the word 
you want to attach the S to, but it is not the real word. 
You still want the procedure to work on words like 
CAT, DOG, and HORSE. 


Remember the tiresome joke? 

Dale: Bet you’ve never heard of the word 
‘ ‘ antidisestablishmentarianism! ’ ’ 
Dana: Of course I have. 

Dale: Pooh! I bet you can’t even spell it. 
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Dana: Of course I can. 

Dale: Go ahead. Let’s see if you can spell it. 
Dana: A, n, t, i, d, i... 

Dale: Hah! Wrong already! “It” is spelled 
“i t.” 


Dale is playing with the confusion between 
what a word is and what it stands for. When 
you speak, you change your tone of voice 
when you need to make that clear. Consider, 
for example, how you might say the words 

“Please say your name” 


to Dale if you really wanted Dale to answer 
“your name” instead of “Dale”? When you 
write, you use quotation marks to help make 
your meaning clear. And when you program 
in Logo, the quotation marks again mean 
“take this word literally” as they do in writ¬ 
ten English. 


However, Logo’s rule is different from the 
rule in English: in Logo no quotation mark is 
placed after the quoted word and that one 
quotation mark applies to only one word. 
When you need to indicate that more than 
one word is to be taken literally, you must 
either separately quote each word, this way 

"YOUR "NAME 


or enclose all of the words in square brackets, 
this way 


[YOUR NAME] 



- mask *®' wjismim 
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Now type in the procedure: 

TO PLURAL :N0UN 
WORD :N0UN "S 
END 

To run it, type PLURAL followed by a quoted word like 
this: 

PLURAL "CAT 
PLURAL"HORSE 

Your screen will look like this: 

PLURAL "CAT 

YOU DON'T SAY WHAT TO DO WITH CATS, IN LINE 
WORD . NOUN "S 
AT LEVEL 1 OF PLURAL 

Inside the procedure PLURAL, Logo has created an ob¬ 
ject and does not know what to do with that object. It is 
telling you what problem it was having and exactly 
where it encountered the problem. 

Logo tells which of your procedures confused it (in 
this case, only one of your procedures, PLURAL, was 
involved, but there might have been more). 

It tells the line in which it got stuck. And it tells the 
“level” at which it got stuck — how many procedures 
it was already trying to execute when the error 
occurred. 
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To see the meaning of level, create another procedure 
that runs PLURAL. 

TOTRYLEV 
PLURAL"CAT 
END 

Tty it. 

TRYLEV 

YOU DON’T SAY WHAT TO DO WITH CATS, IN LINE 
WORD .NOUN "S 
AT LEV EL 2 OF PLURAL 

Note that the level is now 2. TRYLEV is the first level, 
the command you typed to the “top level” of Logo. 
Since PLURAL is “within” TRYLEV, its level is 2. 
Level can be useful information when debugging 
complex programs. 

Before you can tell Logo what to do with the object it 
creates inside PLURAL, you have to decide that for 
yourself. You know how to tell Logo to PRINT the re¬ 
sult immediately, but perhaps you want to do some¬ 
thing more complicated with the plural word before 
printing it. 

Suppose, for example, you want to create a procedure 
that brags about your pet like this: 

I LIKE some-pet-or-otherS. 
some-pet-or-otherS ARE GREAT, 

BUT MY some-pet-or-other IS THE BEST! 
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In the second sentence, we want the plural to be tucked 
into the sentence before it is printed, and in the first 
sentence we need to do two things before printing — 
attach a period to the plural and then stick the whole 
thing at the end of the sentence. 



Since we want to use the object that PLURAL creates in 
different ways, it would be nice if PLURAL would 
hand the object back to us to manipulate further as we 
wish. This is accomplished by telling it to OUTPUT 
the object. 


Edit PLURAL to insert the word OUTPUT (or its ab¬ 
breviation OP) in the proper place. The procedure will 
now look like this: 


TO PLURAL:NOUN 
OUTPUT WORD :N0UN "S 
PRINT [DONE] 

END 


Now run it again as you did before. 

PLURAL "CAT 
PLURAL"HORSE 


This time, your screen should say: 

PLURAL "CAT 
RESULT: CATS 
PLURAL"HORSE 
RESULT: HORSES 

That is precisely what we want. PLURAL has com¬ 
puted the result, and we are still free to decide what to 
do with it. 
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But what became of the DONE that we told PLURAL to 
print? OUTPUT tells a procedure not only to return a 
value, but to stop immediately. If it is important that 
PLURAL announce when it is done, it must print 
DONE before it is done. (It can’t do anything after it is 
done!) 

However, if PLURAL is to be used inside another pro¬ 
cedure, perhaps one that brags about pets, PLURAL 
probably should not print anything anyway. It should 
do its job quietly, and let the superprocedure that uses 
it decide what to print and when. 

Edit PLURAL again to remove the useless line PRINT 
[DONE]. 

Try to predict what each of these commands will do, 
and then type them to see how each works: 

PR SE [I LIKE] PLURAL "CAT 
PR WORD "TOM PLURAL "CAT 
PR WORD PLURAL "CAT". 

PR SE [I LIKE] WORD PLURAL "CAT ". 
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How Logo Interprets a Command 

It is worth spending a moment to understand how 
Logo interprets a command as complex as the last one. 


PR SE [I LIKE] WORD PLURAL "CAT 



[I LIKE] WORD inputl ^ input2 

PLURAL input 

“CAT 

Logo reads from left to right, but as you will see by fol¬ 
lowing the diagram above and the discussion below, 
PLURAL is the first operation to be executed. 

First Logo sees the word PR. That means that it will 
have to print whatever follows. So before executing 
PR, Logo must read further to see what follows. PR 
must wait. 

Instead of finding an object, Logo encounters another 
operation, SE. Furthermore, this primitive requires 
two inputs of its own, so again Logo must read on to 
find them. PR waits for SE and SE waits for its inputs. 
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Logo finds the object [I LIKE] as a first input to SE. But 
SE needs another, so Logo reads further. 

Next it finds WORD. Again, this is not an object but an 
operation. As before, this primitive requires two in¬ 
puts, so Logo reads still further. 

The next thing it finds is, again, not an object but 
another operation, PLURAL. PLURAL requires one 
input, so Logo must still look further. 

This time Logo finds an object, “CAT — and since 
PLURAL needs only the one input, it can now exe¬ 
cute. It outputs CATS which becomes the first input to 
WORD. Still, WORD requires a second input which 
Logo has not yet seen. So, now — after executing 
PLURAL “CAT—Logo continues to read through the 
original line and finds the object “.at the end of it. 

Logo has now found two objects — CATS and . — to 
use as inputs to WORD. WORD can now execute, out- 
putting CATS., which becomes the second input to 
SE. SE can now execute, outputting [I LIKE CATS.] 
which becomes the input to PR. PR can now execute, 
printing (not outputting!) 

I LIKE CATS. 

This left-to-right reading but (seemingly) right-to-left 
execution can be confusing sometimes. Both of the fol¬ 
lowing command lines will cause Logo to complain. 
Try them out to see when and where the complaint oc¬ 
curs, and then use an analysis like the one given above 
to understand what Logo was doing when it had to 
stop. 
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PR SE [I LIKE] WORD PLURAL [CAT] 

PR SE [I LIKE] WORD PLURAL "CAT [.] 

Sometimes the complexity of a line makes it difficult 
to understand even by the person who first wrote it. 
Before reading on, try to predict what the following 
Logo command will do. Then type it in to try it, and 
read on. 

PR SE WORD LAST PLURAL "CAT "CAT "CAT 

When you write complex Logo commands — espe¬ 
cially if you are writing them for other people to 
understand, but often even for yourself— it can be a 
good idea to use parentheses to help group the parts of 
the command. Logo will interpret the command ac¬ 
cording to its rules equally easily with or without the 
parentheses, but people find the added punctuation 
helpful. 

You should decide for yourself how much parenthesiz¬ 
ing to do. Sometimes, using the maximum is best. At 
times, the maximum looks too cluttered, and just a few 
are better. The choice is entirely a matter of taste. For 
example, that last command might be parenthesized in 
the following ways. Which way makes it visually 
clearest to you what the command does? 

PR (SE (WORD (LAST (PLURAL "CAT )) "CAT )"CAT ) 

PR SE (WORD LAST (PLURAL "CAT ) "CAT ) "CAT 
PR SE (WORD (LAST PLURAL "CAT ) "CAT ) "CAT 
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Be sure to type a space between “CAT and) 

— otherwise, Logo will read the parenthesis 
as part of the word and will complain that 
the primitive needs more inputs, i.e. Logo 
can’t find a matching right parenthesis. 

Using Logo Predicates and Creating New 
Ones: LIST?, WORD?, MEMBER?, and the 
Structure of IF, THEN, and ELSE 

All along, we’ve been using IF without any explana¬ 
tion of its structure. The IF statement has three parts: 

1) The IF itself 

2) A condition which may be either TRUE or 
FALSE. (In this case, the condition is LIST? 
:NOUN which tells whether it is TRUE or 
FALSE that NOUN is a list.) The condition 
may include modifiers such as NOT, ALLOF, 
and ANYOF, either individually or in combi¬ 
nation. 

3) The THEN clause: an action to perform if 
the condition is TRUE. 

An IF statement can also have an additional two parts 
when desired. 

1) The word ELSE and 


2) An action to perform if the condition is 
FALSE 
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Finally, as mentioned earlier, the word THEN can be 
used optionally between the condition and the action- 
if-true. 


Thus, an IF statement can take the following four 
forms. 


IF condition action-if-true 
IF condition THEN action-if-true 
IF condition action-if-true ELSE action-if-false 
IF condition THEN action-if-true ELSE action-if-false 



The condition always contains a “predicate,” a Logo 
primitive or user procedure that answers a lYue-False 
question by outputting TRUE or FALSE. 


In the case of LIST? :NOUN, the True-False question is 
“NOUN is a list! True or false?” If the statement is false, 
LIST? outputs FALSE. If the statement is true, LIST? 
outputs TRUE. 


You will often need to create your own predicates, so it 
is important to become familiar with their behavior. 
Type these expressions to Logo: 

LIST? PEOPLE 
LIST? FIRST PEOPLE 
LIST? NTH 3 PEOPLE 


Each time, Logo should announce a result, showing 
that LIST? output a word, either TRUE or FALSE, de¬ 
pending on whether the input was a list or not. 
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You have used several other predicates. When you 
used NUMBER? :CHTR in the EASY procedure for 
QUICKDRAW in project 5, it output TRUE or FALSE 
depending on the truth of the statement “CHTR is a 
number.” 

In GREET, you used the expression EMPTY? 
:PERSON. It worked the same way. 

And, in the expression IF :CHTR = “F, the equal sign 
also outputs TRUE or FALSE depending on the truth of 
the statement that CHTR equals “F. (The =, like the +, 
comes between its inputs.) 

The RC? primitive (which takes no inputs), the 
WORD? primitive (which takes one input), and the 
procedure MEMBER? (which takes two inputs) are 
also predicates. 

When you first defined MEMBER? and EMPTY? we 
postponed explaining how they work. You are now 
probably ready for that explanation. 

Look first at the procedure EMPTY?. 

TO EMPTY?: OBJECT 

OUTPUT ANYOF :0BJECT = [] :0BJECT = " 

END 

There are two equal-signs in the procedure. Each one 
outputs TRUE or FALSE. 

The first one outputs TRUE if OBJECT is the empty list 
(and FALSE otherwise). The second outputs TRUE if 
OBJECT is the empty word (and FALSE otherwise). 
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ANYOF takes two (or more) inputs, and it outputs 
TRUE if any of them is TRUE. 

Finally, the purpose of the command OUTPUT in the 
procedure is to tell EMPTY? to output whatever 
ANYOF outputs. Thus, EMPTY? outputs TRUE if any 
of these conditions is true: 

the OBJECT is [], the empty list 
the OBJECT is “ , the empty word 

Otherwise, EMPTY? outputs FALSE. 

Now look at the procedure MEMBER?. 

TO MEMBER? :ELEMENT :0BJECT 
IF EMPTY? :OBJECT OUTPUT "FALSE 
IF :ELEMENT = FIRST :0BJECT OUTPUT "TRUE 
OUTPUT MEMBER? :ELEMENT BUTFIRST .OBJECT 
END 

Surely ELEMENT cannot be a member of OBJECT if 
OBJECT has no members! So, if OBJECT is empty, 
MEMBER? should output FALSE. 

IF EMPTY? :0BJECT OUTPUT "FALSE 

If ELEMENT is the first member of OBJECT, the proce¬ 
dure need check no further. It can already answer 
TRUE that ELEMENT is a member of OBJECT. 

IF :ELEMENT = FIRST :0BJECT OUTPUT "TRUE 
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Now, the recursive step. If there are more elements in 
OBJECT (because OBJECT is not empty), but 
ELEMENT is not the first element of OBJECT, it may 
still be one of the later elements. If it is a member of 
BUTFIRST :OBJECT, it is clearly a member of OBJECT. 

So, if ELEMENT is not the first element of OBJECT, but 
there are more elements, the procedure may answer 
the original question — MEMBER? :ELEMENT 
:OBJECT — by outputting the answer to a simpler 
question — MEMBER? ELEMENT BUTFIRST 
.OBJECT. 

OUTPUT MEMBER?:ELEMENT BUTFIRST :0BJECT 


You’ve probably noticed that every predicate 
has the -? suffix. We will continue to use this 
convention throughout the chapter. When 
you see a primitive or procedure name end¬ 
ing in -?, you’ll know that its behavior is to 
output TRUE or FALSE. 

Projects with Predicates 

16. Define the predicate, TO VOWEL? :LETTER, that 
outputs TRUE if LETTER is a vowel, and FALSE 
otherwise. 

17. Define the predicate, TO YES?, that requests a 
typed line from the user and outputs TRUE if that line 
is a reasonable synonym of ‘ ‘yes, ’ ’ FALSE if the line is a 
reasonable synonym of “no,” and otherwise prints a 
message requesting clarification and calls itself recur¬ 
sively to try again. Decide on the synonyms you will 
accept. 
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Ordered Rules 

Testing out PLURAL reveals a number of bugs. Try the 
following inputs: 

PLURAL"DOG 
PLURAL "TURTLE 
PLURAL "FLY 
PLURAL "FINCH 
PLURAL "FISH 
PLURAL "MOUSE 
PLURAL "CHILD 
PLURAL "FOX 
PLURAL [FOX TERRIER] 

Two different kinds of bugs can be noted. One is that 
some of the plurals are not correct. The procedure’s 
only rule is to tack on an S, and it must be taught more 
about English plurals. 

The other bug is that it couldn’t handle [FOX 
TERRIER] at all. In this case, Logo complains that 
WORD doesn’t like [FOX TERRIER] as input in the 
context of OUTPUT WORD :NOUN “S in the proce¬ 
dure PLURAL. 

Logo, of course, is not biased against cute dogs. It is 
merely trying to say that WORD glues pieces of words 
— not lists -— together to make other words. 

To solve this problem the procedure doesn’t need more 
knowledge about English, but rather needs more 
knowledge about its inputs. We will show a solution to 
three of the problems and suggest several other prob¬ 
lems as projects for you to work on. 




First, the FOX TERRIERS. If NOUN is a list, PLURAL 
should probably do most of its work on the last word of 
the list. 

It should OUTPUT a SENTENCE composed of all BUT 
the LAST word of NOUN, and the PLURAL of the 
LAST word of NOUN. The Logo instruction would 
look like this: 

IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST :N0UN 
Edit PLURAL and add that line. 

TO PLURAL :N0UN 

IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST .NOUN 
OUTPUT WORD: NOUN "S 
END 


Try 

PLURAL [BLUE BIRD] 
or 

PLURAL [RICKETY LADDER] 
in addition to 
PLURAL [FOX TERRIER], 

Right now, PLURAL “FOX outputs FOXS. To get it to 
output FOXES, we might include a simple test to see if 
X is the last letter of NOUN. If it is, we should attach ES 
rather than S to NOUN. 

IF "X = LAST :N0UN OP WORD :N0UN "ES 

Where shall we put this new instruction? Certainly not 
as the last instruction, because if it came after the line 
OUTPUT WORD :NOUN “S, the procedure would 
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never get to it. In this case, it makes little difference in 
PLURAL’S behavior whether the new instruction 
comes first or second. 

Edit PLURAL and define it to look like this: 

TO PLURAL:NOUN 

IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST :N0UN 
IF "X = LAST :N0UN OP WORD :N0UN "ES 
OUTPUT WORD: NOUN "S 
END 

Now test it out. Does PLURAL give the right plural for 
FOX? What about [FOX TERRIER]? And whpt about 
[GREY FOX]? 

A third problem is teaching the procedure how to 
handle the really strange cases, like CHILD, MOUSE, 
FOOT, and SHEEP. First, we must make a list of the ex¬ 
ceptions. 

MAKE "EXCEPTIONLIST [CHILD MOUSE FOOT SHEEP OX] 

PLURAL must be told something like “If the noun is 
one of the exceptions .. 

IF MEMBER? :N0UN :EXCEPTIONLIST... 

“. . . then output the special plural associated with 
that particular noun.” 

... OUTPUTspecial.plural.something.or.other 

Where should that special-plural information reside? 
It could be another procedure: 


Terrapin Logo Tutorial 


W -77 



Words and Lists 


TO EXPLU :N0UN 

IF :N0UN = "CHILD OP "CHILDREN 
IF :NOUN = "SHEEP OP "SHEEP 
IF :NOUN = "MOUSE OP "MICE 
IF :NOUN = "FOOT OP "FEET 
etc. 

END 

In that case the new addition to PLURAL would be: 

IF MEMBER? :N0UN :EXCEPTIONLIST OP EXPLU :N0UN 

Another approach, in some ways simpler, is to put 
each piece of special plural information into a box 
whose name is the noun itself. So we could put 
CHILDREN into a box named CHILD, and put SHEEP 
into a box named SHEEP, etc. 

MAKE "CHILD "CHILDREN 
MAKE "SHEEP "SHEEP 
MAKE "OX "OXEN 


Then IF the NOUN were a member of the 
EXCEPTIONLIST, PLURAL should OUTPUT the ob¬ 
ject (THING) inside a box associated with the NOUN. 
The Logo would look like this: 


IF MEMBER? :N0UN :EXCEPTIONLIST OP THING :N0UN 




This is strange-looking code, indeed. What can THING 
:NOUN mean? If :NOUN is CHILD, then THING 
:NOUN is the THING of CHILD, and if :NOUN is 
SHEEP, then THING :NOUN is the THING of SHEEP. 


Words and Lists 


And what is the THING of CHILD? CHILDREN, be¬ 
cause earlier you typed MAKE “CHILD “CHILDREN. 
So, too, the THING of SHEEP is SHEEP. 

Projects with PLURAL 

18. It matters where you place the new instruction. 
Below, we show PLURAL defined in three different 
ways, with the new instruction placed first, second, 
and third. 


Define PLURAL each way and test it out enough to de¬ 
termine which way(s) work. (Why do we not bother 
even trying it as the fourth instruction?) 

TO PLURAL:N0UN 

IF MEMBER? :N0UN :EXCEPTIONLIST OP THING :N0UN 
IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST :N0UN 
IF "X = LAST :N0UN OP WORD :N0UN "ES 
OUTPUT WORD :N0UN "S 
END 

TO PLURAL :N0UN 

IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST :N0UN 
IF MEMBER? :N0UN :EXCEPTIONLIST OP THING :N0UN 
IF "X = LAST :N0UN OP WORD :N0UN "ES 
OUTPUT WORD :N0UN "S 
END 

TO PLURAL :N0UN 

IF LIST? :N0UN OP SE BL :N0UN PLURAL LAST :N0UN 
IF "X = LAST :N0UN OP WORD :N0UN"ES 
IF MEMBER? :N0UN :EXCEPTIONLIST OP THING :N0UN 
OUTPUT WORD :N0UN "S 
END 
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19. To teach PLURAL when to add ES at the end, you 
sometimes must look at the last letter of :NOUN and 
sometimes at the last two letters. Figure out the rule, 
and then make PLURAL smart enough to output the 
correct plural for WISH. 

Does it handle [BEST WISH] correctly? Can it handle 
BOSS? FINCH? Does it still do the right thing for FOX? 
Are you satisfied with the way it handles FISH? 

20. Teach it to do the right thing with FLY. 

21. Does PLURAL handle BOY and KEY correctly? If 
not, fix it. 

22. In project 15 above, you wrote a program to gener¬ 
ate random sentences out of the nouns in PEOPLE and 
the verbs in ACTIONS. Without changing any of the 
details of the program, you can add HE, [MY MOTHER], 
and certain other nouns and pronouns to PEOPLE, 
but, as the program stands, it will stop making gram¬ 
matical sentences if PEOPLE contains elements like 
YOU, or [CHARLES AND DIANA]. 

This can be fixed. ACTIONS now contains the verbs 
[LOVES [DREAMS ABOUT] KISSED HATES [CANT 
STAND] LIKES]. If it were changed slightly, a program 
similar to PLURAL could add the proper S or D end¬ 
ings when needed. This is what ACTIONS would need 
to contain: [LOVE [DREAM ABOUT] KISS HATE 
[CANT STAND] LIKE] 

First, write a procedure, TO FIXVERB: VERB (the logic 
will be similar to PLURAL, but not the same) that adds 
S or ES or nothing to any verb that is its input. Write 
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another procedure, TO PAST :VERB that adds D or ED 
(or makes whatever other change is needed) to put the 
verb in past tense. 

Now write a procedure that takes a subject such as 
YOU or [THE TURTLE] and figures out whether the 
verb needs to be “fixed” or not. 

With these procedures you can make a better sentence 
generator. 

23. If you know French, you could do the same thing 
for French verbs. Of course, the rules are more com¬ 
plicated, and you will need to do more designing and 
more programming. 

But you have all the techniques now, and some good 
strategies. It is probably a good idea to have small pro¬ 
cedures, each of which does a specific job, rather than 
one large procedure that does everything. 

A set of procedures that conjugate French verbs can be 
used in a program that generates French sentences. It 
can also be used as part of a quiz on French verbs. The 
next section will deal with quiz programs. 

Quiz Programs: More About REQUEST (RQ) 

When REQUEST is encountered in a procedure, the 
procedure stops and waits until the user presses 
<RETURN>. Anything that the person has typed 
prior to the <RETURN> is then output by REQUEST 
as a list. 
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(J2\ K the person types a dozen words, REQUEST outputs a 
s 12 word list. If the person types nothing, REQUEST 
outputs an empty list. If the person types a single 
word, REQUEST outputs a one word list. The impor¬ 
tant thing to remember is that REQUEST’S output is 
always a list, never a word. 

Here is a model of a simple quiz program. QUIZ 
“gives” the quiz, using QA to handle each question/ 
answer pair. QA is a subprocedure that prints the ques¬ 
tion, requests an answer from the quizee and if that an¬ 
swer is the official ANSWER, prints “ YUP! ” and stops. 

If the answer is not judged to be correct, QA prints the 
correct answer. 

TO QUIZ 

PRINT [TEST YOUR BRILLIANCE!] 

QA [WHO IS BURIED IN GRANT'S TOMB?] [GRANT] 

QA [WHY DID THE CHICKEN CROSS THE ROAD?] [TO GET GAS] 
QA [HOW DO YOU SPELL RELIEF?] [CORRECTLY] 

END 

TO QA:QUESTION :ANSWER 
PRINT :QUESTI0N 

IF :ANSWER = REQUEST PR [YUP!] STOP 
PR SE [NOPE! THE ANSWER IS:] :ANSWER 
END 

On the surface, the logic of the addition quiz below is 
identical to QUIZ. ADDQUIZ “runs” the test, calling 
ADDQ with each number pair. ADDQ’s inputs are two 
numbers to add. It doesn’t need to be told the answer, 
as QA did, because it can figure out the answer itself. 
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Its first line prints the question—for example 7 + 9 = 
— and waits for the answer at the end of the line. The 
second line waits for the user to type an answer and 
compares it to the calculated correct answer. 

If the user’s answer is the same, ADDQ prints YAY! and 
stops. Otherwise it prints the correct answer. It seems 
like it ought to work. Yet it has a bug. 

Define ADDQUIZ and its subprocedure ADDQ, try the 
quiz (by typing ADDQUIZ), and see if you can make it 
work properly before reading on. 

TO ADDQUIZ 

PRINT [TEST YOUR ADDITION) 

ADDQ79 
ADDQ85 
ADDQ98 
END 

TO ADDQ :NUMBER1 :NUMBER2 
PRINT1 ( SE :NUMBER1"+ :NUMBER2 *"= ') 

(buggy line) IF(:NUMBER1 + :NUMBER2) = REQUEST PR [YAY!] STOP 
PR ( SE "NOPE, :NUMBER1 "+ :NUMBER2 "= :NUMBER1 
+ :NUMBER2) 

END 

Forgetting that REQUEST always outputs a list is a fre- 
quent source of bugs. As the procedure ADDQ is cur¬ 
rently written, it will never print YAY!. (:NUMBER1 + 
:NUMBER2) is a number (and therefore a word), while 
REQUEST outputs a list—the two can never be equal. 



To make them comparable, we need to change 
REQUEST’S list into a word. We can do this by taking 
the FIRST of REQUEST. Thus ADDQ will work if 
REQUEST is replaced by FIRST REQUEST or its ab¬ 
breviation FIRST RQ. 

Make that change and verify that ADDQ now works by 
typing 

ADOQUIZ 

Projects with REQUEST 

24. In general, there is more than one right way to an¬ 
swer a question, yet QUIZ considers only one answer 
correct. Suppose QUIZ were rewritten this way: 

TO QUIZ 

PRINT [TEST YOUR BRILLIANCE!] 

QA [WHO IS BURIED IN GRANT'S TOMB?] 

[[GRANT] [GENERAL GRANT]] 

QA [WHY DID THE CHICKEN CROSS THE ROAD?] 

[[TO GET GAS] [FOR FUN] [TO LAY EGGS]] 

QA [HOW DO YOU SPELL RELIEF?] 

[[CORRECTLY] [ROLAIDS]] 

END 

In each case, a different number of correct answers has 
been provided. Rewrite QA to account for the choices 
of answers. 

25. The biggest difference between the subprocedure 
ADDQ for the addition quiz and the subprocedure QA 
for the general information quiz is that ADDQ does not 
need to be told the answer to the question. Because 
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number pairs can be selected at random, even the ques¬ 
tions do not have to be specified one by one. 

This means that the quiz can keep generating ques¬ 
tions as long as desired, without having had to list all 
the questions beforehand. Write an addition quiz that 
poses problems with randomly selected numbers no 
larger than 12, and keeps going until the quizee gets 
ten of them correct. 

26. Add a bit more intelligence to the addition quiz. 
Let it start by posing addition problems with very 
small numbers, say under 4. If a person gets three of 
them correct, the program begins giving slightly larger 
numbers, and so on. The program stops if a person gets 
two wrong in a row. 

27. Change ADDQ’s title line to read TO ADDQ 
:TRIES :NUMBERl :NUMBER2 and change the proce¬ 
dure to allow a person two tries at the same problem 
before the problem is changed. 

ADDQ should perhaps say TRY AGAIN if the person 
gets the wrong answer the first time, but should not 
give the correct answer until the person gets the prob¬ 
lem wrong a second time. Then it should quit and go 
on to the next problem. 

28. Using the procedures PICK and QA that were 
defined earlier in the solution to project 15 , write a 
STATESQUIZ program that picks question-answer 
sets off a pre-defined list. You might store the informa¬ 
tion in a form something like this: 

MAKE "STATES [[OHIO COLUMBUS] [[NEW YORK] 

ALBANY] [GEORGIA ATLANTA]] 
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29. If you used the exact list shown in project 28, and 
wrote a working STATESQUIZ, it may be hard to add 
states that have multi-word capitals to the list. For 
example, if you now type MAKE “STATES LPUT 
[IOWA [DES MOINES]] :STATES, the chances are that 
when STATESQUIZ asks what the capital of Iowa is, it 
will not accept any answer as correct. 

Fix the quiz so that it works, either by redesigning the 
data-base (:STATES) to be more consistent, or by mak¬ 
ing the procedures smart enough to handle the incon¬ 
sistency. (Suggestion: redesigning the database makes 
the program simpler.) 

30. If you have written a French verb conjugator, you 
can write a quiz similar to ADDQUIZ that selects a verb 
at random from a list, selects a pronoun, also at ran¬ 
dom, and asks the person to type in the correct verb 
form. 

Composing Logo Objects: SENTENCE, 

WORD, LIST, FPUT, LPUT, TEST, IFTRUE, 
andIFFALSE 

Here is a procedure, JUNKMAIL, that uses SENTENCE 
and its abbreviation SE. Define JUNKMAIL, complete 
with extra spaces as shown below. 

TO JUNKMAIL :PERS0N 
PR SENTENCE [DEAR] :PERS0N 
PR [IF YOU ACT RIGHT NOW, YOU HAVE] 

PR [A CHANCE TO WIN A MILLION DOLLARS!] 

PR [WINNING TICKETS, ALREADY MADE OUT] 

PR [IN YOUR NAME, ARE WAITING FOR YOU.] 

PR (SE [THINK,] . PERSON [, WHAT THAT COULD MEAN!]) 
END 
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To run it, type JUNKMAIL followed by a list or a word, 
like this: 

JUNKMAIL [MS. RACHEL LEVIN] 

JUNKMAIL [ABBY] 

JUNKMAIL "MIKE 
JUNKMAIL PICK PEOPLE 

Notice, first, its handling of spaces. All of the extra 
spaces you inserted are missing. Also, because 
SENTENCE creates a list— outputting DEAR ABBY 
instead of the word DEARABB Y—it appears to leave a 
space between its inputs. The space, as noted earlier, is 
not a part of the list, but merely a separator that comes 
between elements of the list. 

SENTENCE always outputs a list. If either input is a 
word, SENTENCE treats that input as if it were a one- 
element list. Thus, all four of these expressions output 
the sentence [DEAR ABBY]. 

SENTENCE"DEAR"ABBY 
SENTENCE "DEAR [ABBY] 

SENTENCE [DEAR] "ABBY 
SENTENCE [DEAR] [ABBY] 

The last line of JUNKMAIL contains parentheses. By 
surrounding the primitive SENTENCE and the three 
objects that follow it, those parentheses tell Logo that 
the primitive is to accept all three objects as input. 

A few Logo primitives — in general, the ones 
that “associatively combine” their inputs, 
such as SENTENCE, WORD, and LIST, but 
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also some others such as PRINT and PRINTl 
— have this ability to accept other than their 
usual number of inputs when surrounded by 
parentheses. 

User-defined procedures cannot be given this 
feature. 


The procedure has a formatting bug. We would like it 
to type, 

THINK, MIKE, WHAT THAT COULD MEAN! 

but the space that separates elements of a list has sepa¬ 
rated PERSON from the following comma, with thi s 
result: 

THINK, MIKE , WHAT THAT COULD MEAN! 

When, in PLURAL, you attached S to one of the words 
in a list, you were solving a similar problem, but 
JUNKMAIL adds a new twist. 

If we could be certain that PERSON was a Logo word, 
the change would be simple: 

PR (SE [THINK,] WORD :PERS0N ", [WHAT THAT COULD 
MEAN!]) 

But this will not work if the input is a list. Since WORD 
cannot take lists as inputs, the list would first have to 
be torn apart (using FIRST or LAST to extract the ele¬ 
ments, and BUTFIRST or BUTLAST to preserve the 
rest), and then recomposed (using SENTENCE) after 
the comma is affixed properly by WORD. 
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PR ( SE [THINK,] BL :PERS0N WORD LAST :PERSON ", 
[WHAT THAT COULD MEAN!]) 

Now try JUNKMAIL twice, once with a word and once 
with a list. What happens? 

Since the user is free to input either word or a list, we 
must take still one more step. We have a choice. One 
possibility is to test the input with WORD? or LIST? 
and choose which path to follow depending on the 
outcome. We can perform either test and write the rest 
of the IF statement accordingly. So, the logic might be: 

IF LIST? -.PERSON do-the-list-version ELSE 
do-the-word-version 
or 

IF WORD? :PERS0N do-the-word-version ELSE 
do-the-list-version 

In either case, the result is a horribly long line that be¬ 
comes nearly impossible to read. Here is how it might 
look inside die editor if the LIST? test were used: 

IF LIST? :PERS0N PR ( SE [THINK,] BL :! 

PERSON WORD LAST :PERSON ", [WHAT THAT ! 

COULD MEAN!] ) ELSE PR ( SE [THINK,] WO! 

RD :PERSON ", [WHATTHAT COULD MEAN!]) 

Logo provides another IF-like construction, TEST, 
which is useful when several actions must be per¬ 
formed depending on the truth of the tested condi¬ 
tional. TEST is also useful when the actions are very 
long, as they are in this case. 
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Here is how the same logic would be written using 
TEST. 

TEST LIST? :PERS0N 

IFTRUE PR (SE [THINK,] BL :PERS0N WOR! 

D LAST :PERSON ", [WHAT THAT COULD MEAN! 

!]) 

IFFALSE PR ( SE [THINK,] WORD :PERS0N I 
", [WHAT THAT COULD MEAN!]) 

There is a less verbose alternative. Since (SE “ABBY) 
and (SE [ABBY]) both output the list [ABBY], 
SENTENCE can be used to convert the input, what¬ 
ever form it started in, into a standard form. 

Insert the statement MAKE “PERSON (SE :PERSON) 
as the first line of JUNKMAIL to force :PERSON to be a 
list. The parentheses are needed because SE is taking 
fewer than two inputs. Then, since you know that 
:PERSON is a list, you need not test and can use just the 
solution that applies to lists. This application of SE 
often comes in handy. 

LIST, FPUT, and LPUT also compose lists. It is impor¬ 
tant both to compare their effects by doing some sim¬ 
ple experiments (some will be suggested below) and to 
know why anybody would care about the differences. 

First, compare SENTENCE and LIST this way: 

SE [THIS IS] [A LIST] 

LIST [THIS IS] [A LIST] 

SENTENCE outputs a list whose elements are the ele¬ 
ments of its inputs, whereas LIST outputs a list whose 
elements are its inputs. 
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When is this important? If you are trying to compose 
a simple list of words, as in an English sentence, 
SENTENCE is the right choice. Try these: 

SE [THIS IS A] "SENTENCE 
SE "THIS [IS A SENTENCE] 

(SE "THIS [IS] "A [SENTENCE]) 

(SE [THIS IS A SENTENCE]) 

(SE "THIS "IS "A "SENTENCE ) 

Because SENTENCE throws away information about 
the structure of its inputs, each of these expressions 
outputs the same list, [THIS IS A SENTENCE]. Now try 
the same sets of inputs using the primitive LIST in¬ 
stead of SE. 

LIST [THIS IS A] "SENTENCE 
LIST "THIS [IS A SENTENCE] 

(LIST "THIS [IS] "A [SENTENCE]) 

(LIST [THIS IS A SENTENCE]) 

(LIST "THIS "IS "A "SENTENCE ) 


The structure of the inputs is fully preserved in the 
output. 

[[THIS IS A] SENTENCE] 

[THIS [IS A SENTENCE]] 

[THIS [IS] A [SENTENCE] ] 

[ [THIS IS A SENTENCE] ] 

[THIS IS A SENTENCE] 


LIST is the primitive to use when you need to package 
objects, unaltered, into a list. Like SENTENCE, LIST 
usually takes two inputs, but when parenthesized, it 
accepts any number greater than zero. 
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Neither SENTENCE nor LIST allows you to insert an 
element into an already existing list. This is the job of 
FPUT and LPUT. 

Each takes an object (word or list) as its first argument 
and a list as its second argument. It then inserts the ob¬ 
ject into the list either to become the first element of the 
new list (in the case of FPUT) or the last element of the 
new list (LPUT), and outputs the new list. Try these: 

FPUT "THIS [IS A SENTENCE] 

LPUT "THIS [IS A SENTENCE] 

LPUT [FD 50] [[RT 90] [BK 30] [LT 60]] 

FPUT and LPUT are important when you are ac¬ 
cumulating information gradually and want to keep 
track of it on a list. This is the reason why LPUT was 
the proper primitive for storing new names of people 
that GREET met in the FRIENDLY program that you 
defined in the section called Some Friendly Introduc¬ 
tions. 

Because LPUT created its output by packing the new 
object (in that case, PERSON) into a previously exist¬ 
ing list (in that case, KNOWN), its output can later be 
decomposed back to the original object and list by 
LAST and BUTLAST respectively. 

This inverse relationship of LPUT to LAST and 
BUTLAST, and of FPUT to FIRST and BUTFIRST is 
what makes these two primitives so important. This re¬ 
lationship is best shown by an illustration and some 
experimenting. 


Terrapin Logo Tutorial 


Words and Lists 


The relationship can be summarized this way (type 
each statement below): 

If WOL represents any Logo word or list, e.g. 

MAKE "WOL [FD 50] 

and OLD.LIST represents any Logo list, e.g. 

MAKE "OLD.LIST [[RT 90] [BK 30] [LT 60]] 
then define NEW.LIST this way: 

MAKE "NEW.LIST FPUT :W0L :OLD.LIST 
Now type 

PR :W0L PR :OLD.LIST PR : NEW.LIST 

and observe that the following two statements are true: 

WOL = FIRST: NEW.LIST 
:OLD.LIST = BF :NEW.LIST 

Similarly, if you 

MAKE"D LPUT:WOL:OLD.LIST 

then these statements are true: 

:W0L = LAST :D 
:OLD.LIST = BL :D 
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An Application of LPUT in Interactive 
Graphics: RUN 

Look back at the procedure EASY that you defined in 
the early section called Interactive Graphics. Each time 
certain characters are pressed, a turtle command is 
executed. 

The screen “remembers” the effect of each command, 
but the program has no way of knowing what com¬ 
mand it executed last. It could not, for example, run 
through the same sequence of commands again to 
make another copy of the design on the screen. 

Just as FRIENDLY was given a memory, you can add 
memory to the QUICKDRAW program. Each time a 
character is pressed, EASY will run the proper com¬ 
mand, and also store that command on a list. 

Using the simplest combination of the strategies in 
GREET and in EASY, one might rewrite each line of 
EASY to look something like this: 

IF :CHTR = "F THEN FD 10 MAKE "HISTORY FPUT [FD 10] 
.HISTORY 

IF :CHTR = "R THEN RT15 MAKE "HISTORY FPUT [RT 15] 

: HISTORY 

IF :CHTR = "LTHEN LT15 MAKE "HISTORY FPUT [LT15] 

: HISTORY 
etc. 

But there is a way of reducing the amount of repe¬ 
tition. If there was a procedure (let us call it 
RUN.AND.RECORD) that could take the command 
as input and be responsible for both the running and 
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recording of the command, EASY could be written 
more economically and more understandably as: 

IF :CHTR = "F RUN.AND.RECORD [FD 10] 

IF::CHTR = "R RUN.AND.RECORD [RT15] 

IF :CHTR = "L RUN.AND.RECORD [LT15] 
etc. 

If RUN.AND.RECORD calls its input MOVE, then the 
line that records the history of moves might look like 
this: 


MAKE "HISTORY (LPUT :M0VE :HIST0RY) 



To run a list that contains a legal Logo command or ex¬ 
pression, Logo provides the primitive RUN. 


Thus, the procedure that runs and records each move 
might look like this: 


TO RUN.AND.RECORD :M0VE 
RUN :M0VE 

MAKE "HISTORY ( LPUT :M0VE :HIST0RY) 
END 


To summarize, RUN.AND.RECORD takes an input list 
containing a Logo command. It RUNs the input, and 
then tucks it neatly into a list named HISTORY. 

Define this new procedure and test it out a few times. 
As was necessary in the FRIENDLY program, you must 
first create an empty HISTORY list for 
RUN.AND.RECORD to add its new moves to. 


MAKE "HISTORY [ ] 
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Now type these commands. (Use <CTRL>P to repeat 
the line and the <DEL> key to change the last few 
characters. It will save you some typing!): 

RUN.AND.RECORD [FD 30] 

RUN.AND.RECORD [RT120] 

RUN.AND.RECORD [BK 10] 

RUN.AND.RECORD [RT24] 

RUN.AND.RECORD [BK5] 

To print the history list, type 

PR :HIST0RY 


and notice that it contains a record of the commands 
that generated the picture on the screen. 

[FD 30] [RT 120] [BK 10] [RT 24] [BK 5] 




Using the History List: Applying a Command 
(RUN) to Each Element of a List 

Whole new possibilities are now opened up. Re¬ 
running each of these commands will copy the design 
onto the screen a second time. 


Alternatively, you can achieve the effect of “undoing” 
the last command (BK 5) by erasing the screen, remov¬ 
ing the [BK 5] from the history list and running what 
remains. 


The INSTANT program on your Utilities Disk 
uses this strategy. Several of the procedures 
described in this section are similar to those 
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used in INSTANT. You may want to study that 
program. See the Graphics chapter for a de¬ 
scription of its use. 

Both of these functions require that you have a proce¬ 
dure capable of doing the same thing — in this case, 
RUNning — to each of the elements of a list. 


Normally RUN takes a list and executes the com- 
mand(s) in the list. Here, the list to be run is composed 
of sub-lists, each of which must be run individually. 

The procedure will take the list as input: 

TO RUN.ALL COMMANDS 


If the list is empty, then the job is done, so the proce¬ 
dure stops. 

IF EMPTY? COMMANDS STOP 


If the list is not empty, then perform the required 
action to the first element of the list. 

RUN FIRST COMMANDS 

And then, following the same logic, deal with the 
remainder of the list. 

RUN.ALL BF COMMANDS 

Define the procedure RUN.ALL. 
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TO RUN.ALL COMMANDS 
IF EMPTY? COMMANDS STOP 
RUN FIRST COMMANDS 
RUN.ALL BF COMMANDS 
END 



RUN.ALL can be thought of as a model for a 
whole class of procedures. For instance, you 
have already seen MEMBER?, NTH, and 
COUNT. The structure of this kind of proce¬ 
dure is shown in the “ghost” procedure below: 


TO X.ALL : LI ST title with input 

IF EMPTY? :LIST STOP condition for stopping 
Y FI RST : LI ST action to take with first element 

X.ALL BF :LIST recursive call with BF input 

END end 


Here is a procedure of similar structure which 
erases a list of procedures. 


TO ERLIST :PR0CS 
IF EMPTY? :PR0CS STOP 
RUN LIST "ERASE FIRST :PR0CS 
ERLIST BF:PR0CS 
END 


r ”'! 




Type these commands: 

RUN.ALL :HIST0RY 
RUN.ALL :HIST0RY 
REPEAT2 [RUN.ALL :HIST0RY] 
PR:HISTORY 
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The picture has changed, but the history list has not. 
Why? Because RUN.ALL did not record any of the 
commands it ran; it just ran them. 

To “undo” a command, we clear the screen and run all 
but the last element of the history list. Of course, if the 
history list is already empty, we cannot undo any more 
and so should just stop. 

Here is a procedure which does that: 

TO UNDO 

IF EMPTY? :HIST0RY STOP 
MAKE "HISTORY BL:HISTORY 
DRAW 

RUN.ALL :HIST0RY 
END 

Clear the screen with DRAW and type RUN. ALL 
:HISTORY. Now type UNDO a few times to see its 
effect. 

Projects with History Lists 

31. Edit EASY to take advantage of RUN.AND.RECORD 
and UNDO. Some changes need to be made in addi¬ 
tion to inserting the two new procedures. 

Try out all of the features — the old as well as the new 
— in a variety of combinations to be certain they work 
together properly. In particular, make certain that 
UNDO does the right thing when pressed right after 
you have pressed the D key to erase the screen. 
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To start up the program with an empty history list, it 
might be convenient to define this startup procedure: 

TO STARTUP 
MAKE "HISTORY [] 

QUICKDRAW 

END 

32. Add right-curving circles and left-curving circles 
to QUICKDRAW. 

Substituting One Word for Another in a 
Sentence: A Procedure with Two Recursive 
Calls 

We will design a procedure that will work like this: 

SUBST "DOGS "CATS [WE THINK DOGS ARE GREAT] 

RESULT: [WE THINK CATS ARE GREAT ] 

SUBST "X PICK PEOPLE [WE LOVEX MORE THAN ANYBODY] 
RESULT [WE LOVE SANDY MORE THAN ANYBODY ] 

SUBST "ADV PICK ADVERBS [COLORLESS GREEN IDEAS 
SLEEP ADV] 

RESULT: [COLORLESS GREEN IDEAS SLEEP FURIOUSLY ] 

It will serve as a building block for a variety of lan¬ 
guage activities, and a model for a procedure that can 
work Mad-Libs. 

What is its design? It takes three inputs: a key word it 
is looking for, a word to replace that one with, and a 
sentence as a context in which to perform the replace¬ 
ment. 
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This version of SUB ST will replace all occurrences of 
the key word with the replacement word. Described 
concretely, it can look through sentences like [WE 
THINK DOGS ARE GREAT] and wherever it finds 
DOGS, it substitutes CATS. 

The logic is absolutely like the recursive model shown 
before. 

Let’s review the model: 

title with inputs 
condition for stopping 
action to take with first element 
recursive call with BF input 
end 

The title line and stop condition are straightforward. If 
there is nothing in the sentence CONTEXT, there is 
nothing to substitute, so the procedure outputs an 
(identical) empty sentence. 

The remaining two lines introduce a new twist. The 
action to take with the first element is clear: if it is the 
key word :KEY that we are looking for 

IF (FIRST: CONTEXT )= :KEY 

the procedure must replace it with :NEW. Replacing 
the first element of a list means keeping the butfirst. 
SUBST must output a sentence composed of the new 
first element with the butfirst of the original 
CONTEXT. This, by itself, is 

OP SE:NEWBF: CONTEXT 
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But the object is to catch every occurrence of KEY in 
CONTEXT. SUB ST changed one occurrence at the be¬ 
ginning, but the code line we just wrote takes the but- 
first of the CONTEXT without checking further. 

Instead of BF :CONTEXT itself, what we really want is 
the result of a continued substitution of NEW for KEY 
in that BF :CONTEXT. So the action really is 

OP SE :NEWSUBST :KEY :NEW BF :C0NTEXT 

and the logic of that line is 

IF( FIRST:CONTEXT) = :KEYOP SE :NEWSUBST :KEY :NEW 
BF: CONTEXT 

If there is no substitution to make, of course, SUBST 
will keep the first element, but it still must check 
further in the sentence for later occurrences of the key 
word. The action in this case is nearly identical to the 
previous action except that the first element of the list 
is not changed to NEW but kept as is: 

OP SE FIRST CONTEXT SUBST :KEY :NEW BF :C0NTEXT 

Here is the entire procedure: 

TO SUBST :KEY :NEW:CONTEXT 
IF CONTEXT =[] OP [] 

IF ( FIRST CONTEXT) = :KEY OP SE :NEW SUBST :KEY 
:NEWBF: CONTEXT 

OP SE FIRST :CONTEXT SUBST :KEY :NEW BF:CONTEXT 
END 


And here are some examples of its use. 


SUBST "VERB "LOVES [PAUL VERB CINDY] 

SUBST "VERB PICK ACTIONS [THE TURTLE VERB DALE] 
SUBST "NAME "CHRIS [NAME KISSED NAME] 

SUBST "NAME PICK PEOPLE [NAME WON'T SPEAK TO 
NAME] 

SUBST "ADV PICK [STEALTHILY CREATIVELY [WITH 

EXCEPTIONAL SPEED] HUNGRILY] [CATS CAN CLIMB 
TREES ADV BECAUSE OF THEIR SHARP CLAWS] 

Although the procedure does everything it is adver¬ 
tised to do, it is not quite right for Mad-Libs. The prob¬ 
lem is that in a command like PR SUBST “NAME PICK 
PEOPLE [NAME WON’T SPEAK TO NAME], both 
NAMEs are replaced by the same PICK from PEOPLE. 

Why? Because the picking is done first. SUBST is pre¬ 
sented with one name, selected at random by PICK, to 
use everywhere it finds the key word. 

SUBST is useful as it is (because sometimes it is neces¬ 
sary to specify a particular replacement to make) but 
for Mad-Libs, it would be better to have a procedure 
that looked for a key word and each time it found one, 
selected at random from a list of potential substitutes. 

Such a procedure would need inputs giving the key 
word and context as before, but instead of having a 
designated substitute, it should be given a list of alter¬ 
nates from which to pick each time the need arises. 


TO MAD :KEY :ALT : CONTEXT 
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The stop rule would be the same. 

IF:CONTEXT = [] OUTPUT[] 

And if there’s no substitution to make, the action is the 
same. 

OP SE FIRST:CONTEXT MAD :KEY :ALT BF CONTEXT 


Only when a KEY is found must MAD behave differ¬ 
ently from SUB ST. Compare the corresponding lines. 

IF (FIRST:CONTEXT) = :KEY OP SE :NEW SUBST :KEY :NEW 
BF CONTEXT 

IF ( FIRST iCONTEXT) = :KEY OP SE PICK :ALT MAD :KEY :ALT 
BF:CONTEXT 

SUBST is given a fixed substitute as input, whereas 
MAD picks the alternate itself whenever it needs to. 
Otherwise, they are identical. 


Here is the finished procedure: 

TO MAD :KEY :ALT :CONTEXT 
IF: CONTEXT = [] OUTPUT [] 

IF ( FIRST :CONTEXT) = :KEY OP SE PICK :ALT MAD :KEY 
:ALT BF: CONTEXT 

OP SE FIRST :CONTEXT MAD :KEY :ALT BF:CONTEXT 
END 

And here are some examples of its use. 

MAD "NAME PEOPLE [NAME KISSED NAME] 

MAKE "ADVERBS [STEALTHILY CREATIVELY [WITH EXCEP¬ 
TIONAL SPEED] HUNGRILY] 
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MAD "ADV: ADVERBS [DOGS DO NOT CLI MB TREES ADV OR 
ADV] 

MAD "V ACTIONS [PAT V CHRIS, BUT DALE V DANA.] 

More can be done with MAD. Since MAD creates and 
outputs an object (rather than just printing its finished 
product), that object can be processed further. Try this: 

MAD “NAME PEOPLE [NAME V NAME] 

The object it produced is something like [SANDY V 
THE TURTLE]. If this object were made the input to 
MAD, the V could be replaced with some action. This 
can be done in one step. 

MAD "V ACTIONS MAD "NAME PEOPLE [NAME V NAME] 

The output from MAD “NAME PEOPLE [NAME V 
NAME] becomes the third input to MAD “V ACTIONS 


Try 

MAD "ADV:ADVERBS MAD "X PEOPLE MAD "V ACTIONS [X 
V AND VX ADV AND ADV] 

Projects with Mad-Libs 

33. Create a MAD LIB procedure that takes one input, 
a text, and looks for Verbs, Nouns, Proper Names, 
ADVerbs, and ADJectives to substitute. You might use 
[THE ADJ N V MY ADJ N PN ADV] as a test text. 
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34. Punctuation in a sentence will interfere with 
MAD the way it is now written. For example, MAD ‘‘V 
ACTIONS [PAT V CHRIS, BUT DALE V DANA.] will 
work, but MAD “PN PEOPLE [PN LOVES PN, BUT PN 
CAN’T STAND PN.] will not. (You may want to try it to 
see it fail.) 

The substitution must be more sophisticated to handle 
punctuated sentences. It must look at each word in the 
sentence and perform tests to determine if it is a key 
word. Then, after choosing an alternative, the proce¬ 
dure must affix the proper punctuation to that new 
word. 

Write a version of MAD that works correctly in both of 
the contexts shown above. 

35. As MADLIB is now written, it finds substitutes for 
a fixed set of key words. A slightly more versatile pro¬ 
gram would take two inputs, the context (as always) 
and a list of key words to look for. Then it would sys¬ 
tematically look through the context for instances of 
each of the key words and make the proper substitu¬ 
tions. Write a procedure that will do this. 

Understanding Language: Searching for Key 
Words and Matching Sentences to Templates. 
ALLOF, ANYOF 

FRIENDLY, when we last left it, expected a nice, tame 
answer to its question, “WHAT’S YOUR NAME?” It 
would respond unintelligently if you typed MY 
NAME IS PAUL or NONE OF YOUR BUSINESS when 
it asked. Here is a scenario that looks more intelligent, 
as if FRIENDLY really understands language. 
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FRIENDLY 

WHAT'S YOUR NAME? 

MY NAME IS PAUL 

HI, PAUL! IT'S NICE TO MEET YOU. 

FRIENDLY 
WHO ARE YOU? 

NONE OF YOUR BUSINESS 

YOU SEEM TO BE IN A BAD MOOD. BYE. 

FRIENDLY 

WHAT'S YOUR NAME? 

WHAT'S IT TO YOU? 

I WAS JUST CURIOUS. 

FRIENDLY 

MY NAME IS LOGO. WHAT'S YOURS? 

PLEASE CALL ME PAUL 

GOOD TO SEE YOU AGAIN, PAUL. 

FRIENDLY 

HI, WHAT'S YOUR NAME? 

PAUL 

AH, YOU'RE BACK. HI, PAUL. 


FRIENDLY is exhibiting a number of behaviors we re¬ 
gard as intelligent. It is not confused by punctuation. 
Also, its phrasing is flexible. But, most important, it 
has always responded appropriately. 

How can we design it so that it will reliably recognize 
the name in an arbitrary phrase? We might start by try¬ 
ing to figure out how people do that. 
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Do we listen to all the words in the sentence and look 
up each one on a list of possible names? Unlikely. If a 
Martian said to you, “Hi, my name is Xqpsnpfltk,” you 
might not be able to repeat the name, but you’d know 
you were being told one. 



You’d know because you understood the rest of the 
sentence and realized that whatever that sound was 
that came at the end, that had to be this creature’s 
name. 


All is not hopeless. Although we cannot expect to 
write a procedure that is capable of understanding all 
of English, we can analyze the likely language that this 
particular conversation will contain. 


If the procedure encounters something we have an¬ 
ticipated, it can give a specific appropriate answer. 
Otherwise, it will have to give a neutral answer. 


Here’s how it might work. First we list some possible 
phrases it may see. One limitation we will impose is 
that people always respond only with their first name, 
and not with first and last, or title and last, etc. (That 
complication comes later.) 


Cooperative responses might include: 


<name> 

My name is <name> 
People call me <name> 
Please call me <name> 
<name> is my name 
I am <name> 


W-108 


Terrapin Logo Tutorial 



Words and Lists 


Uncooperative responses should include: 

None of your business! 

I won’t tell you. 

I don’t want to tell 
I’m not telling you. 

What’s it to you? 

Go away 

Let’s work with the cooperative responses first. Sup¬ 
pose we create a series of templates based on likely 
response patterns. If we had a procedure that could 
match what the person types to each of the templates, 
and, where it found a match, record what word corre¬ 
sponded to the “wild card” <name>, that would be a 
big help. 

For example, suppose we had a procedure MATCH? 
which would tell if a sentence matched a template. For 
example, the actual sentence 

MATCH? [MY NAME IS PAUL] 

used with the template 

[MY NAME IS @NAME] 

with the wild card identified by the at-sign, would 
give the result TRUE. 

Suppose, furthermore, that if the sentence and 
template do match, then the matching word in the 
sentence (in this case, PAUL) and the name of the wild 
card it corresponded to (in this case, there is only 
one, @NAME) are saved in a special variable named 
@@MATCHES. Then, after this match, 
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@@MATCHES would have the value [[@NAME 
PAUL]]. 

Let’s also suppose we have a way of looking for a wild 
card in this list and outputting the word associated 
with it; thus LOOKUP “ @NAME would output PAUL. 

If we had such procedures, then we could write a lan¬ 
guage understander that looked like this. 

TO OUTPUT.NAME :SENT 

IF MATCH? :SENT [MY NAME IS @NAME] OP LOOKUP "@NAME 
:@@MATCHES 

IF MATCH? :SENT [@NAME IS MY NAME] OP LOOKUP "@NAME 
:@@MATCHES 

IF MATCH? :SENT [I AM @NAME] OP LOOKUP "@NAME 
:@@MATCHES 

IF MATCH? :SENT [@JUNK CALL ME @NAME] OP LOOKUP ^ 
"@NAME:@@MATCHES 
IF 1 = COUNT :SENT OP FIRST :SENT 
OP [I WAS JUST CURIOUS] 

END 

The first three lines explain themselves, If the sentence 
typed by the person to FRIENDLY is of any of those 
forms, a match will occur, and LOOKUP will find the 
name. 

The fourth line has two wild cards in it. It takes care of 
both PLEASE CALL ME PAUL and PEOPLE CALL ME 
PAUL. 

The fifth line assumes that if the person answers with 
only a single word, that word is probably the name. 

And the sixth line is a “punt.” If no other strategy 
worked, this answers “neutrally” with a nothing 
answer. 
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There are some problems with this procedure as it was 
written. The most striking is that it can supply either 
the right answer (a name) which must then be tucked 
into some reply by GREET (depending, for example, 
on whether GREET has met the person before or not) or 
an entire reply which should not be further altered. 

GREET, of course, can tell the two situations apart, as 
the name is a word, and the full reply is a list. 

Second, we have not dealt at all with the “uncoopera¬ 
tive responses.” More on those later. Meanwhile, how 
do MATCH? and LOOKUP work? 

MATCH? will need two inputs — the sentence in ques¬ 
tion, and the template to check it against. 

TO MATCH? SENTENCE TEMPLATE 

It will need to make sure that the variable @(©MATCHES 
is cleaned out before checking to see if the sentence 
matches the template. 

MAKE (©(©MATCHES [] 

Finally, it performs the check. 

OP CHECK SENTENCE TEMPLATE 

So the procedure looks like this: 

TO MATCH? SENTENCE TEMPLATE 
MAKE "(©(©MATCHES [] 

OP CHECK SENTENCE TEMPLATE 
END 
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But, we’ve put off the major part of the work! How does 
CHECK check?! It, too, must take both the sentence 
and template as inputs. 

TO CHECK :S :T 

If these two do match, it should output TRUE. If they 
don’t, it should output FALSE. (This is not, of course, 
all it does. It must also identify what element of the 
sentence corresponded to the “wild card” in the 
template, but we will worry about that later.) A trivial 
case of matching is when both the sentence and the 
template are empty. 

IF ALLOF :S = [] :T=[] OP "TRUE 

If they are not both empty, but one of them is empty, 
then they surely do not match. 

IF ANYOF :S = [] :T = [] OP "FALSE 

If the first element of the sentence and the first element 
of the template are the same, then a match is possible, 
but not definite. In this case, the answer is to be found 
in checking the remaining elements of the sentence 
and the template for a match. 

IF (FIRST :S) = FIRST :T OP CHECK BF :S BF :T 

Likewise, if the first element of the template is a wild 
card, then a match is possible, but not definite. Again, 
the answer is to be found in checking the remaining 
elements of the sentence and the template for a match. 
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In this case, however, the procedure must do one 
additional thing. It must record what the first element 
of the sentence was when it encountered the wild card 
as the first element of the template. 

IF WILD? FIRST :T (RECORD FIRST :T FIRST :S) OP CHECK BF 
:SBF:T 

Notice that both WILD ? and RECORD are just tossed in 
there as if we already knew how they should work. We 
don’t, and Logo has no such primitives to help us with, 
but we can design those procedures later. 

At present, all we are trying to do is handle the top 
level logic of CHECK. Surely, if WILD? and RECORD 
existed, this line would be what we want. 

Finally, if the first of T is neither wild nor matches the 
first of S, then there is no match, so we output FALSE. 

This is how the procedure looks so far. 

TO CHECK :S :T 

IF ALLOF :S = [] :T=[] OP "TRUE 
IF ANYOF :S = [] :T = [] OP "FALSE 
IF (FIRST :S) = FIRST :T OP CHECK BF :S BF :T 
IF WILD? FIRST :T(REC0RD FIRST :T FIRST :S) OP CHECK BF 
:S BF :T 
OP "FALSE 
END 
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What WILD? does depends on how we choose to indi¬ 
cate a wild card. Since we have decided that wild cards 
begin with the at-sign character, WILD? need only 
check for that character as the first character of its 
input. 

TO WILD? :W0RD 
OP "@ = FIRST :W0RD 
END 

RECORD creates a list of the key and the matched 
word, and tucks that list into @@MATCHES to be 
retrieved when needed by LOOKUP. 

TO RECORD :KEY :MATCHEDWORD 
MAKE "@@MATCHES LPUT LIST :KEY :MATCHEDWORD 
:@@MATCHES 
END 

And LOOKUP will look systematically through each 
element of @ (©MATCHES until it finds one whose 
first element is the key word. It will then output the 
second element. Notice how similar its structure is to 
the model recursive procedures you have seen before. 

TO LOOKUP :KEY:LIST 
IF :LIST = [] OP" 

IF :KEY = FIRST FIRST :LIST OP LAST FIRST :LIST 
OP LOOKUP :KEYBF:LIST 
END 
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Now try running OUTPUT.NAME a few times. 

OUTPUT.NAME [MY NAME IS ASHER] 

OUTPUT.NAME [PLEASE CALL ME ISHMAEL] 

OUTPUT.NAME [WHAT'S IT TO YOU?] 

OUTPUT.NAME [PAUL] 

Projects with Language Understanding 

36. Add OUTPUT.NAME to the FRIENDLY program. 
FRIENDLY must still be capable of responding differ¬ 
ently to old people and new people, and must have the 
added ability to pull names out of the contexts in 
which they are typed. Do not yet worry about other de¬ 
tails (e.g. punctuation) yet. 

37. To add a bit more sensitivity to the uncooperative 
responses, you might design a procedure that looks for 
“negative words” in the sentence, words like WON’T, 
NONE, DON’T, NOT, and the like, and outputs a “neu¬ 
tral” response to a negative. 

Such a response might be YOU SEEM TO BE IN 
A BAD MOOD, or SORRY I ASKED. Add that to 
OUTPUT.NAME in such a way that no other changes 
need to be made to GREET or FRIENDLY. 

38. Wherever fixed phrases are now used, teach the 
program to vary them using PICK and a phrase list. If it 
is necessary to embed the name in a phrase, SUB ST 
can do the work. 


39. Finally, fix the program not to get stumped by 
punctuation. 

40. As CHECK is currently written, [MY NAME IS 
@NAME] would match [MY NAME IS ASHER] but 
would not match [MY NAME IS ASHER LEV] because 
only one word can match a wild card. 

Likewise, [@JUNK CALL ME @NAME] would not 
match [CALL ME ISHMAEL], because some word 
must be present to match @JUNK. 

A better CHECK program would recognize two kinds 
of wild cards, one that matches to exactly one word in 
the sentence (the situation we already have), and 
another that matches to any number of words in the 
sentence, including 0. 

The new wild card would have to be symbolized dif¬ 
ferently, perhaps by a number-sign prefix. So CHECK 
would be able to tell that both CALL ME ISHMAEL and 
MY CLOSE FRIENDS CALL ME SIR OLIVER match 
the template [#JUNK CALL ME #NAME], but that 
[MY NAME IS HARRIET BEECHER STOWE] fits 
another template. 
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APPENDIX 


ERROR MESSAGES 

Error messages are Logo’s way of trying to help the 
user find errors, those things which Logo does not 
understand. They may be misspellings or wrong usage. 

The list of error messages, as given here, is divided. In 
both parts, capital letters indicate the unchanging part 
that Logo types to you; what is in the parentheses will 
vary depending on the circumstances. Both parts of 
the list are alphabetical according to the first unchang¬ 
ing word. 

The first part of the list includes those messages which 
will start with different words at different times; here 
you must look for that part of the message after the 
variable portion. 

The second part includes the messages that always 
start out the same way. 

PARTI 

(word) CAN BE USED ONLY INSIDE PROCEDURES 
Example: 

PR:X 

LABELS CAN BE USED ONLY INSIDE PROCEDURES 

You meant to type PR :X. Logo sees PR: which is the 
form of a label (used with GO). It does not infer the 
missing space between PR and :X. 
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(command) CANNOT BE USED INSIDE THE EDITOR 

This occurs only when (in EDIT mode) you type text 
which, when you leave the editor and it is executed, 
will interfere with the rest of the edit buffer text. Very 
rare bird indeed. 

(procedure) DIDN'T OUTPUT 

Example: 

FORWARD SQUARE 5 
SQUARE DIDN'T OUTPUT 

SQUARE FD 100 
FD DIDN'T OUTPUT 

This occurs when Logo cannot find the input for some¬ 
thing that requires an input, either a procedure or a 
primitive. (It looks at the next thing on the line and 
complains that it didn’t get anything from that thing to 
use as an input. To produce something that could be 
used as an input, that thing would have to output it.) 

What it usually means is that you forgot to type the 
input Logo was looking for. 

(primitive) DOESN'T LIKE (data) AS INPUT 

Example: 

PRINT 5 "SIDE 
^■DOESN'T LIKE SIDE AS INPUT 
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This occurs when you try to do arithmetic with some¬ 
thing other than a number. Here Logo is trying to mul¬ 
tiply a name (specified by “) instead of a value (spe¬ 
cified by:). 

(primitive) DOESN'T LIKE (data) AS INPUT. 

IT EXPECTS TRUE OR FALSE 


Example: 

IF 2 THEN PRINT 5 

IF DOESN'T LIKE 2 AS INPUT. IT EXPECTS TRUE OR FALSE 

The primitives IF, NOT, ALLOF, and ANYOF expect 
only expressions which will evaluate to TRUE or 
FALSE, such as :X = 3 (which is either true or false). 
You probably neglected to type the rest of the test. 

(message) , IN LINE 
(line) 

AT LEVEL (level) OF (procedure name) 

Example: 

THERE IS NO PROCEDURE NAMED FD100, IN LINE 
FD100 

AT LEVEL 1 OF SQUARE 

The (message) here is another error message, with this 
larger message pinpointing the location of the error, by 
printing the line, level, and procedure in which it 
occurred. 
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(name) IS A LOGO PRIMITIVE 
Example: 

FIRST IS A LOGO PRIMITIVE 

Logo reserves the words which are Logo primitives 
and does not allow them to be used as procedure 
names. Choose another name for your procedure. 

(procedure) NEEDS MORE INPUTS 
(primitive) NEEDS MORE INPUTS 

Examples: 

SQUARE NEEDS MORE INPUTS 
FD NEEDS MORE INPUTS 

SQUARE required more inputs than were used; FD 
was used without an input. With a procedure, this can 
happen when the second input is negative and is used 
without parentheses. The parentheses are necessary to 
distinguish a second input from a first input obtained 
by subtraction. 

(arithmetic-operator) NEEDS SOMETHING BEFORE IT 
Example: 

PRINT/8 

/ NEEDS SOMETHING BEFORE IT 

The number to be divided by 8 is omitted. 
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(primitive) SHOULD BE USED ONLY INSIDE A PROCEDURE 
Example: 

(OUTPUT) SHOULD BE USED ONLY INSIDE A PROCEDURE 

OUTPUT, STOP, and GO cannot be used in immediate 
mode (top level). They have meaning only in a proce¬ 
dure. 


PART II 


CAN'T DIVIDE BY ZERO 

Example: 

PRINT :X / :Y 
CAN'T DIVIDE BY ZERO 

:Y is (no doubt inadvertently) zero. This message oc¬ 
curs with QUOTIENT, REMAINDER, and /. Get around 
this by testing :Y to see if it is zero before the division. 

DISK ERROR 

Example: 

CATALOG 

[ ]—DISK ERROR 

The Logo Language Disk files cannot be listed with 
CATALOG. You will also get this message when you 
try to access a disk with no disk in the disk drive, or 
try to SAVE to a protected disk. 
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END SHOULD BE USED ONLY IN THE EDITOR 
Example: 

PRINT 5 END 

END SHOULD BE USED ONLY IN THE EDITOR 

You have done one of these things: 

1. tried to use END in IMMEDIATE mode 

2. put END on a line with something else in a proce¬ 
dure 

3. put it in the list used by the Logo primitive DEFINE. 
ELSE IS OUT OF PLACE 

Example: 

PRINT 5 ELSE PRINT :C 
ELSE IS OUT OF PLACE 

ELSE has no meaning in this context. It must be used 
in an IF ... THEN ... ELSE statement. 

FILE NOT FOUND 

Example: 

READ "NUSIC 
FILE NOT FOUND 

NUSIC is not a file on the disk in the disk drive. 
(MUSIC might be.) Check your spelling with this one 
before despairing. Type CATALOG to see what IS on 
the disk. 
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LINE GIVEN TO DEFINE TOO LONG 
LINE GIVEN TO REPEAT TOO LONG 
LINE GIVEN TO RUN TOO LONG 

You have exceeded the maximum length of a line used 
by DEFINE, REPEAT, or RUN, which is 256 characters. 

MISSING INPUTS INSIDE ()'S 

Example: 

(FORWARD) 

MISSING INPUTS INSIDE ()'S 

The procedure or primitive in the () was used with too 
few inputs. 

NO STORAGE LEFT! 

You have used up all the storage. The exclamation 
mark means this is very unusual. Erase some unneces¬ 
sary procedures. 

NUMBER OUT OF RANGE 

An arithmetic operation has resulted in a number too 
large or too small for Logo, i.e. greater than 10 ** (38) 
or less than 10 ** (—38). Use different numbers. 

PROCEDURE NESTING TOO DEEP 

You have exceeded the limit for nesting procedures 
(which is over 200). This will be rare. Send a copy of 
your procedure to Terrapin, Inc. for its museum of the 
unusual. 
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RESULT: (data) 

Example: 

12 * 10 
RESULT: 120 

Besides giving you a quick way to calculate, Logo is 
also telling you that you have not specified what is to 
be done with the results of the computation. This is 
important to note if you are intending to use the line in 
a procedure. 

THE : IS OUT OF PLACE AT (something) 

Example: 

PRINT X: 

THE : IS OUT OF PLACE AT X 

The: has no meaning in this position. Logo realizes 
that PRINT expects an input, and sees the: which, in 
the right place, denotes a variable. You probably meant 
:X. 

THE DISK IS FULL 

Example: 

SAVE "NEWMUSIC 
THE DISK IS FULL 

When the disk is full and Logo will not save your work¬ 
space, you have several choices. 

1. You can type CATALOG, locate a file you no longer 
need, and erase it with ERASEFILE; 
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2. You can use another disk which is not full; 

3. You can trim the amount you are saving by erasing 
procedures from your workspace. 

THE DISK IS WRITE PROTECTED 

You tried to write on a write-protected disk. This might 
mean you forgot to put your own disk in the disk drive. 

THE FILE IS LOCKED 

Example: 

ERASEFILE "MUSIC 
THE FILE IS LOCKED 

Locking a file is a way to protect it from inadvertent 
erasing. However, do not lock a file you will be chang¬ 
ing; you can READ from locked files, but you cannot 
SAVE to them. 

The file cannot be erased while it is locked. To lock or 
unlock a file on a disk, use FID on the Utilities Disk. 

Type CATALOG to list the files on the disk. Files with 
* before them are locked. 

THEN IS OUT OF PLACE 

Example: 

PRINT 5 THEN PRINT 6 
THEN IS OUT OF PLACE 

THEN has no meaning in this context. THEN must be 
used in an IF ... THEN statement. 
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THERE IS NO LABEL (whatever you used) 

Example: 

THERE IS NO LABEL QUAD 

You have used GO to go to a label that is not specified 
in the procedure. You can avoid this by not using GO. 
To fix it, add the missing label to your procedure. 

THERE IS NO NAME (whatever you used) 

Example: 

PRINT :X 

THERE IS NO NAME X 

X has not been defined, or is used only in a procedure 
and is local to it. This will also occur if you forget to 
list the variables in the title line of a procedure. 

THERE IS NO PROCEDURE NAMED (whatever you typed) 

Example: 

THERE IS NO PROCEDURE NAMED F0100 

When Logo does not recognize a primitive, it looks for 
a procedure name. Mis-typing accounts for most in¬ 
stances of this message; forgetting to read in the file is 
another possibility. 
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THERE'S NOTHING TO SAVE 

Example: 

SAVE "MYSTUFF 
THERE'S NOTHING TO SAVE 

There are no procedures or global variables in the 
workspace to save. Logo would rather tell you now 
than have you be disappointed when you read the 
(empty) file back in from the disk. 

TOO MANY PROCEDURE INPUTS 

You have exceeded the limit on procedure inputs 
(which is over 200). This will be exceedingly rare. 

Send a copy of the procedure which generated this 
message to Terrapin, Inc. for its museum. 

TOO MUCH INSIDE PARENTHESES 

Logo uses this when it cannot figure out some paren¬ 
thesized expression. Interior parentheses may be incor¬ 
rectly placed. 

TURTLE OUT OF BOUNDS 

Example: 

FD 200 

TURTLE OUT OF BOUNDS 

In NOWRAP mode, the turtle would go off the screen 
if it moved, so it doesn’t move. 
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UNRECOGNIZED DOS COMMAND 
Example: 

DOS [TICKLE] 

[TICKLE]—UNRECOGNIZED DOS COMMAND 

Either the Apple does not like the file name specified 
in a READ or SAVE command, or an invalid command 
was used with the Logo DOS primitive. 

YOU DON'T SAY WHAT TO DO WITH (data) 

Example: 

YOU DON'T SAY WHAT TO DO WITH 25, IN LINE 

:SIDE*:SIDE 

AT LEVEL 1 OF SQUARE 

The line is missing (OUTPUT, PRINT, FORWARD, 
ETC.). This corresponds to RESULT: in immediate 
mode. Add the missing instruction (possibly PRINT in 
the example) to the line. 
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THE TERRAPIN LOGO UTILITIES DISK 


Before you begin, make a copy of your Utilities Disk 
because it is possible to damage it or erase it acciden¬ 
tally. Put the original away in a safe place. To copy 
disks, use the COPYA program on the System Master 
Disk that came with your Apple. 


All procedures in the files on the Utilities Disk may be 
considered to be models, to be analyzed and their ideas 
and constructions used. Note particularly the brevity 
of Logo procedures, the constant use of subprocedures, 
and the use of procedure names which describe the 
procedure explicitly. 


In addition to serving as models, the procedures in the 
files on the Utilities Disk fill a variety of roles. 


To Use the Utilities Disk Files 


1. Start Logo using the Terrapin Language Disk, then 
remove the Language Disk from the disk drive and 
put it away. 

2. Insert your backup copy of the Utilities Disk into the 
disk drive. 

3. To list the files on the disk, type CATALOG. 

4. To read a file from the disk, after the ? prompt type 

READ “(file name without .LOGO extension) 
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Example: 

? READ "TEACH (only one quote, please) 

Logo will read the file, confirming the presence of each 
procedure as it reads it in by printing its name and the 
word DEFINED. Example: 

? READ "TEACH 
TEACH1 DEFINED 
TEACH DEFINED 
? 

5. To use the file, type the name of a procedure, as de¬ 
scribed below. 

Summary of Utilities Disk Files 

Music System Files: 

MUSIC.LOGO procedures used and described in the 
Music chapter. 

MUSIC.BIN machine language program used in 
running Logo music. 

MUSIC. SRC assembler language and Logo proce¬ 
dure MCODES. 

The music system is an example of 
Logo/assembler language interfacing, 
explained in Chapter 6 of the Techni¬ 
cal Manual. 
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Aids to Using Logo: 

INSTANT System of single letter Logo com¬ 
mands which makes Logo graphics 
available to non-readers, among oth¬ 
ers. INSTANT and its use are de¬ 
scribed in the Graphics chapter and 
Chapter 4 of the Technical Manual. 

TEACH System of writing Logo procedures 

without using the editor. The TEACH 
system and its use are described in 
this chapter. 

Utilities: 

ARCS Collection of procedures for drawing 

arcs with variable radii. Another pro¬ 
cedure for drawing an arc is devel¬ 
oped in the Procedures section of this 
tutorial. The ARCS file is described in 
this chapter. 

CURSOR Collection of procedures for output¬ 

ting the cursor’s position and for plac¬ 
ing the cursor in a specific location. 
Described in this chapter. 

DPRINT Collection of procedures for printing 

text into disk files. DPRINT is de¬ 
scribed in Chapter 4 of the Technical 
Manual. Its use is described in this 
chapter. 
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FID File utility program for deleting, re¬ 

naming, locking, and unlocking files 
FID is described in this chapter and 
Chapter 4 in the Technical Manual. 

PSAVE Utility for saving a specified list of 

procedures. PSAVE is described in 
this chapter and in chapter 4 of the 
Technical Manual. 


SHAPE.EDIT System for changing the shape of the 
graphics turtle. This is useful for 
games and animation. ROCKET uses 
a new turtle shape. How to create 
your own turtle shape is described in 
Chapter 5 of the Technical Manual. 

TEXTEDIT Procedures for using the Logo system 
as a text editor. Described in this chap¬ 
ter and Chapter 7 of the Technical 
Manual. 


Demonstration Programs: 

ANIMAL Game which adds your information 

about animals to its knowledge base. 
Described in this chapter and Chapter 
4 of the Technical Manual. The struc¬ 
ture and procedures of this program 
are discussed in the section on ad¬ 
vanced use of lists in Logo for the 
Apple II, by Harold Abelson, professor 
of mathematics at M.I.T. 
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ANIMAL.INSPECTOR 

Procedures for examining the ANI¬ 
MAL knowledge base. Described in 
this chapter. 

DYNATRACK Game using principles of physics to 
simulate a ride around a frictionless 
race track. Described in this chapter 
and Chapter 4 of the Technical Man¬ 
ual. 

INSPI.PICT Picture described in Chapter 4 of the 
Technical manual. 

ROCKET.AUX 

ROCKET. SHAPES 

ROCKET 

A demonstration of a use for a turtle 
with a different shape. The shape was 
created with the SHAPE.EDIT utilities 
program. 

TET Example of a simple recursive proce¬ 

dure which draws a complex design. 
Described in Chapter 4 of the Techni¬ 
cal Manual. 

Logo Files for Logo/Assembler Interfacing: 

ADDRESSES File of names describing addresses in 
the Logo interpreter for the assembler. 

AMODES File of names describing the 6502 
addressing modes. 


Terrapin Logo Tutorial 


A-17 



Appendix: Utilities Disk 


ASSEMBLER Logo assembler procedures. 

OPCODES File of names describing the 6502 
mnemonics for the assembler. 

Chapter 6 in the Technical Manual 
describes Logo/Assembler interfac¬ 
ing. 

Turtle Control Language for Owners of the Terrapin 

Turtle 

TCL Procedures for controlling the Terra¬ 

pin Turtle, a robotic floor turtle, de¬ 
scribed in this chapter and Chapter 4 
of the Technical Manual. 


Explanation of Utilities Disk Files 
MUSIC: 

How to Write and Run Logo Music Procedures 

See the Chapter MUSIC in this tutorial. 

MUSIC.BIN, MUSIC.SRC: 

An example of Logo/Assembler Interfacing 

See Chapter 6 in the Technical Manual. 
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INSTANT: Single Letter Logo Commands 

See INSTANT section of the Graphics chapter in this 
tutorial. 


TEACH: 

How to Write Logo Procedures Without Using 
the Editor 

TEACH is used to define procedures whenever you 
want to avoid the complexities introduced by using 
the editor. 

To define the following procedure using TEACH 

TO COUNT :N 
IF :N = 0 STOP 
PRINT :N 
COUNT :N-1 
END 

Type what appears in the usual computer font. What 
TEACH prints is in italics. 

If there are no inputs, press <RETURN>. 

? TEACH 

NAME OF PROCEDURE> COUNT 
INPUTS (IFANY)? :N 

< IF :N = 0 STOP 

< PRINT :N 

< COUNT :N-1 

< END 

COUNT DEFINED 
? 
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To run COUNT, type 
COUNT 

The screen is not cleared when TEACH is used, as it is 
when the editor is used. The instructions developed in 
IMMEDIATE mode can be copied into a procedure 
using TEACH. In GRAPHICS mode, TEXTSCREEN 
(<CTRL> T) will show the previous typing, possibly 
hidden by the picture. SPLITSCREEN (<CTRL> S) 
will return the picture and four lines of text. 

WARNING: Reading a file from the disk DOES clear 
the screen. Therefore, read TEACH in from the disk 
before beginning to type any instructions that you 
might want to copy into a procedure using TEACH. 

The TEACH system uses two procedures: 

TEACH asks for and receives the name of the proce¬ 
dure and any inputs, then passes the information on to 
TEACH1. If there are no inputs, just hit <RETURN>. 

TEACHl, a recursive procedure, receives the lines of 
the procedure (after the prompt <), testing each for 
END. When END is received, TEACHl completes the 
defining of the procedure, and passes control back to 
TEACH, which announces the procedure defined. 
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ARCS: 

Variable Radii Arc and Circle Procedures 

In the Procedure section of this tutorial an additional 
variable radius arc procedure is developed. 

To use the arc and circle procedures provided on the 
Utilities Disk, type the name with numbers for the 
inputs required. Examples: 

RARC 50 90 for a 90 degree (quarter circle) arc to the 
right with a radius of 50. 

RARCl 190 for a 90 degree (quarter circle) arc to the 
right with a radius of 360/(2 PI) or about 
57.2. 

RCIRCLE 30 for a circle to the right with a radius of 
30. 

Substitute LARC, LARCl, and LCIRCLE for arcs and 
circles to the left. 


ARC Procedures 
RARC :RADIUS :DEGREES 

Procedure which draws an arc to the right with given 
:RADIUS and length :DEGREES. Uses RARCl. 

LARC :RADIUS rDEGREES 

Procedure which draws an arc to the left with given 
:RADIUS and length :DEGREES. Uses LARCl. 
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RCIRCLE :RADIUS 

Procedure which draws a circle to the right with given 
:RADIUS. Uses RARC. 

LCIRCLE :RADIUS 

Procedure which draws a circle to the left with given 
:RADIUS. Uses LARC. 

RARCl :SIZE :DEGREES 

Procedure which draws an arc to the right with a ra¬ 
dius equal to :SIZE x 360/(2 PI). Uses CORRECTARCR. 

LARCl :SIZE :DEGREES 

Procedure which draws an arc to the left with a radius 
equal to :SIZE x 360/(2 PI). Uses CORRECTARCL. 

CORRECTARCR :SIZE :AMOUNT 

Procedure which makes a small correction with each 

step of RARCl. 

CORRECTARCL :SIZE rAMOUNT 

Procedure which makes a small correction with each 

step of LARCl. 

The CORRECTARC procedures compensate for the 
error introduced by trying to make a fractional number 
of repetitions in the ARC1 procedures, in the line 

REPEAT QUOTIENT :DEGREES 5 [FD :SIZE * 5 RT 5] 
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CURSOR: Procedures for Character Output 
Control; Position, Flashing, Inverse 

Character Control Procedures 

CURSOR.HV Outputs a list of two elements: the cur¬ 
sor’s horizontal position and its vertical 
position. Type 

CURSOR.HV Logo will respond 

RESULT: [0 19] 

CURSOR.H Outputs the cursor’s horizontal position. 
Type 

CURSOR.H Logo will respond 

RESULT: 0 

CURSOR.V Outputs the cursor’s vertical position. 
Type 

CURSOR.V Logo will respond 

RESULT: 23 

CURSORPOS Requires a two element list of the hori¬ 
zontal and vertical cursor coordinates; 
moves the cursor to that position. Type 

CURSORPOS [23 23] 

and the cursor will be placed in the 
lower right corner of the screen. [0 0] is 
in the upper left corner. 
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FLASHING All characters printed after this com¬ 
mand will flash alternately black on 
white, white on black. This includes 
what Logo prints as well as everything 
typed at the keyboard. Use NORMAL to 
restore to white on black. To enter this 
mode type 

FLASHING 

INVERSE All characters printed after this com¬ 

mand (by Logo or from the keyboard) 
will appear in inverse video, black on 
white. To enter this mode, type 

INVERSE 


NORMAL Restores the normal mode of white on 

black. Type 

NORMAL 

Everything printed after this will be 
white on black. 


How to Print Text Into Disk Files: 

Using DPRINT 

Using DPRINT to store files: 

The procedures in DPRINT can be used to write text 
into disk files. TEXTEDIT contains procedures for 
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saving, reading, examining, and printing the files. For 
most uses, the TEXTEDIT procedures are more appro¬ 
priate and easier to use. See also Chapter 4 in the Tech¬ 
nical Manual. 


To create a new text file, type 
OPEN “(name of file) 

DPRINT [what you want to type into the file] 

CLOSE “(name of file) 

Example: 

OPEN "SESAME 
DPRINT [THIS IS A TEST] 

CLOSE "SESAME 

The text is stored with the CLOSE procedure. To see 
the file listed on the disk, type CATALOG. To see the 
contents of the file, use the procedure SHOWTEXT in 
TEXTEDIT. Example: 

SHOWTEXT 

THIS IS A TEST 

To add to a file, use OPEN.FOR. APPEND instead of 
OPEN. Example: 

OPEN.FOR.APPEND "SESAME 
DPRINT [TESTING APPENDING] 

CLOSE "SESAME 

SHOWTEXT 

THIS IS A TEST 
TESTING APPENDING 
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WARNING: If you use OPEN with an existing file, the 
newly entered text will overwrite the text already in 
the file. Example: 

OPEN "SESAME (assuming text above in it) 

DPRINT [HI] 

CLOSE "SESAME 

SHOWTEXT 

HI 

ISA TEST 

TESTING APPENDING 


TEXTEDIT: 

How to Save, Read, Examine, and Print 
Text Files 

Using Logo as a text editor: 

To start a text file, type 
T0<RETURN> 

This puts you into the editor, with the white line across 
the bottom of the screen. 

Type the text you want, making use of the editing com¬ 
mands described in the Edit section of the APPENDIX. 

NOTE THE DIFFERENCE HERE: When you have 
finished and are ready to print or save the text, leave 
the editor by typing 

<CTRL> G 
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Do NOT type the <CTRL> C used to define proce¬ 
dures. 


Use SAVETEXT (described below) immediately to 
save the file on the disk. You can always replace it with 
a corrected version, but if you accidentally erase it 
from your workspace before you save it, you must 
retype the whole thing. 

Read the file back from the disk using READTEXT 
(also described below). 


WARNING: To work on the file again after using 
READTEXT, type EDIT (or ED). If you type TO when 
there is text in the editor, it will be erased. If you have 
not yet saved it, it will be lost completely. However, 
if it is on the disk, it only means reading it in again. 


Type 

EDIT 


to work on the file again. (See warning above.) 

See also Chapter 7 in the Technical Manual. 

READTEXT :FILE Reads a Logo text file into the editor. 

In this example, "SESAME has the 
two lines in it. Example: 


READTEXT "SESAME 
SHOWTEXT 


THIS IS A TEST 
TESTING APPENDING 
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SAVETEXT :FILE Saves the contents of the editor to 
the disk in the file named. To store 
the lines above in a different file 
(GEORGE), type 

SAVETEXT "GEORGE 

SHOWFILE :FILE Reads the file named and prints it 
out on the screen. SHOWFILE is a 
combination of READTEXT and 
SHOWTEXT. Example: 

SHOWFILE "GEORGE 

PRINTFILE :FILE Reads and prints the file in the editor 
on the printer. Uses SHOWFILE. 

If your printer is not controlled 
from Slot 1, change the value of 
:PRINTER. Example: if your printer 
card is in Slot 7, type 

MAKE "PRINTER 7 

To print the contents of the file 
SESAME on the printer, type 

PRINTFILE "SESAME 

SHOWTEXT Prints on the screen the text which 
is in the editor. See examples above. 
Uses PRINT.MEM. 
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PRINTTEXT Prints on the printer the text which 

is in the editor. Uses SHOWTEXT. 
Example: to print the contents of the 
editor, type 

PRINTTEXT 

PRINT.MEM :FROM :END 

The procedure used by SHOWTEXT. 


FID: File Management Utility: 

How to Delete, Rename, Lock, and Unlock 
Files, Set Default File Extension 

Type 

FID 

Then use the character indicated by FID to list, delete, 
rename, lock, or unlock files on the disk, or to set the 
default file extension. See Chapter 4 of the Technical 
Manual. 

PSAVE: How to Save a Selected Group of 
Procedures 

To save only a few of the procedures in your workspace 
in a file, use PSAVE with the file name and list of pro¬ 
cedures. Example: to save the procedures CIRC, SQ, 
and TRI in the file SHAPES, type 

PSAVE "SHAPES [ CIRC SQ TRI ] 
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SHAPE.EDIT: How to Change the Shape of 
the Turtle 

See Chapter 5 of the Technical Manual. 


ANIMAL: The Game that Teaches the Com¬ 
puter About Animals 

ANIMAL is a game in which the computer tries to 
guess the animal you are thinking of by asking you 
questions. If it doesn’t guess correctly, it will ask you 
for your animal’s name and a question to distinguish 
that animal from the animal it guessed. This informa¬ 
tion it adds to its knowledge tree for the next game. 

To play ANIMAL, type 

READ "ANIMAL then 

Type ANIMAL 

The ANIMAL game is a good example of brief, single 
purpose procedures: 

ANIMAL Prints the greeting, then uses GUESS with 
the stored :KNOWLEDGE. After a round of 
the game, prints another greeting, uses WAIT 
for a pause, then begins again by calling 
itself, ANIMAL. 
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ANIMAL.INSPECTOR: 

What’s in the ANIMAL Knowledge Base? 

This file is intended as a learning aid to be used in the 
discussion of the ANIMAL game. 

The global variable :KNOWLEDGE in the file ANIMAL 
is the knowledge base examined. Therefore, it is neces¬ 
sary to read in the file ANIMAL to use the 
ANIMAL.INSPECTOR. 

To examine the knowledge base available to ANIMAL, 
type 

INSPECT.KNOWLEDGE 

INSPECT.KNOWLEDGE uses INSPECTl with the 

stored :KNOWLEDGE, begin¬ 
ning at level 0. 

INSPECTl :KNOWLEDGE :LEVEL 

calls itself and IPRINT to 
inspect and print each branch 
of the knowledge tree. 

IPRINT Does a pretty print of the 

ANIMAL tree of knowledge. 
Type <CTRL> W (hold down 
the <CTRL> key and press 
<W>) to stop the scrolling 
(to read the tree). Press any 
key to resume scrolling. 
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DYNATRACK: 

A Game: the Dynamic Turtle 
On a Frictionless Surface 

Steering without friction is a very different world, as 
people riding on rocket power have discovered. Dyna- 
track puts you on a rocket sled on a frictionless track 
and gives you the power to do two things: 

1. You can turn the sled, BUT it will keep moving in 
the old direction, moving sideways. 

2. You can give it a burst of rocket power. The force 
will be applied in the direction in which it is point¬ 
ing, BUT, since it was already moving, the resultant 
direction will be somewhere between the original 
dirction and the direction in which you are pointing. 

This is one of the trickiest games you will meet. It re¬ 
quires strategy more than eye-hand co-ordination. 

Type READ "DYNATRACK and then 
Type DYNATRACK 

and follow directions to play. 

The dynamic turtle keeps moving when you give it a 
“kick.” Type R to turn it right, L to turn it left, K to kick 
it in the direction it is facing. 

If it is moving in another direction when you “kick” it, 
the direction of movement will be changed, but it will 
take more than one one kick to change to the direction 
in which it is pointing. 
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INSPLPICT: Sample Logo Picture 
To see the picture, type 
READPICT "INSPI 

The procedure which drew it is listed in Chapter 4 of 
the Technical Manual. 


ROCKET, ROCKET.AUX, ROCKET.SHAPES: 
Example of User-Defined Turtle Shape 

After the file ROCKET is read, type 

ROCKET 

The moving rocket is the turtle, defined using 
SHAPE.EDIT as described in Chapter 5 of the Technical 
Manual. 

After you run the procedure, type 

SETSHAPE :R0CKET 
DRAW 

and try moving the rocket-turtle around. (See the 
Graphics chapter.) Type 

SIZE 5 

and graphics commands. The rocket will move, no 
matter how large it is (SIZE 1 is the normal size). How¬ 
ever, figures other than the turtle figure will make only 
90 degree turns, although the trail each leaves behind 
will go in the designated direction. 
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TET: 

A Graphics Procedure of 
Variable Complexity 

TET is a good example of a recursive procedure. It 
draws tetrahedra on the points of tetrahedra. The larg¬ 
est tetrahedron is of the size specified. On its points 
are drawn half-size tetrahedra, on their points are 
drawn quarter-size tetrahedra, and so on, to the depth 
specified. A depth of 1 draws only the one large tetrahe¬ 
dron. Try 

TET 50 3 


Spaces in the procedure listing below are to help iso¬ 
late the individual commands. They are not a neces¬ 
sary (or usual) inclusion. The REPEAT statement must 
be typed as one line (without a <RETURN> in it). 


Type as one line 


TO TET :SIZE :DEPTH 
IF :DEPTH = 0 STOP 
REPEAT 3 [ LEG :SIZE 

TET :SIZE * .5 :DEPTH—1 

RT 150 FD :SIZE 

RT 150 LEG :SIZE RT 180] 


TO LEG :SIZE 
FD :SIZE / ( 2 * COS 30) 
END 
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ADDRESSES, AMODES, 

ASSEMBLER, OPCODES: 

Interfacing Logo and the Assembler 

Chapter 6 in the Technical Manual describes the use of 
these files in Logo/Assembler interfacing. 


TCL: 

Turtle Control Language 
For the Terrapin Turtle 

The TCL procedures are for the robotic Terrapin Turtle, 
available from Terrapin, Inc. 

To use, read in the TCL file and type 

SETUP 

This initializes the Turtle Interface and system parame¬ 
ters. 


TCL Procedures Which Correspond 
To Screen Graphics Primitives 


FLOORTURTLE 

TCL Example 

TFD :DIST TFD10 
TBK :DIST TBK10 
TLT :ANGLE TLT 90 
TRT :ANGLE TRT90 
TPU TPU 

TPD TPD 


SCREENTURTLE 

Screen Example 

FD :DIST FD10 
BK :DIST BK10 
LT :TURN LT 90 
RT :TURN RT90 
PU PU 

PD PD 
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Procedures (commands) unique to the floor turtle: 

EYESON Turns on and off the LED “eyes” 

EYESOFF on the turtle. 

HORNOFF Turns the horn off. 

HORNHI Makes the horn sound at 

HORNLO different pitches. 

FTOUCH? Outputs TRUE if the front, front 

left, or front right of the hurtle’s 
dome is touching anything; if it is 
not touching, or is touching else¬ 
where, it outputs FALSE. 

LTOUCH? Outputs TRUE if the left side of the 

turtle’s dome is touching anything; 
if it is not touching, it outputs 
FALSE. 

RTOUCH? Outputs TRUE if the right side of 

the turtle’s dome is touching any¬ 
thing; if it is not touching, it outputs 
FALSE. 

BTOUCH? Outputs TRUE if the back of the 

turtle’s dome is touching anything; 
if it is not touching, it outputs 
FALSE. 

FTOUCHONLY? Outputs TRUE only if the actual 
front is touching, whereas 
FTOUCH? reacts in a fairly wide 
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range for “front.” Use this procedure 
as a model for tests for other direc¬ 
tions. 

ANYTOUCH? Outputs TRUE if the turtle is touch¬ 
ing anything. 

NOTOUCH? Outputs TRUE if the turtle is not 
touching anything. 

TOUCH Outputs the state of the turtle’s 

sensors as a number. This procedure 
is used in the touch-testing proce¬ 
dures. The Logo variables :FBIT, 
:LBIT, :BBIT, and :RBIT are names 
for the numbers which make up 
this number. See the Terrapin Tur¬ 
tle-Apple Interface Manual for 
clarification. 

HELP Lists the TCL turtle commands. 

.TCMD :COMMAND :ARGUMENT 

The lowest-level procedure for 
controlling the turtle. It sends the 
:COMMAND and :ARGUMENT to 
the turtle. Use it to make the turtle 
do things the other procedures 
cannot do. 

.BIGCMD :CMD :ARG Used by .TCMD. 
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EDITMODE 

USE OF CONTROL CHARACTERS 
FOR EASE IN EDITING 

The EDIT mode discussion in Chapter 2 of the Techni¬ 
cal Manual includes a listing of the keyboard editing 
commands. 

The <CTRL> key is used like the <SHIFT> key. Hold 
it down while you type the character indicated. 
(<CTRL> N: hold down <CTRL> and type <N>.) 

Moving the Cursor 

These commands move the cursor without changing 
the text. 

Arrow Keys The Left Arrow moves the cursor to the 
left, and, if it is at the beginning of a line, 
up to the end of the previous line. 

The Right Arrow moves the cursor to the 
right, and, if it is at the end of a line, 
down to the beginning of the next line. 

<CTRL> N NEXT: Moves the cursor down to the 
next line. 


<CTRL> P PREVIOUS: Moves the cursor up to the 
previous line. 

<CTRL> A Moves the cursor to the beginning of the 
line. 
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<CTRL> E END: Moves the cursor to the end of the 
line. 

<CTRL> F FORWARD: When editing more than 
one screenful of text, moves the cursor 
one screenful forward, or to the end of 
the buffer, whichever comes first. 

<CTRL> B BACK: When editing more than one 
screenful of text, moves the cursor one 
screenful back, or to the beginning of the 
buffer, whichever comes first. 

<RETURN> typed at the end of a line: moves the 
cursor to the next line. 

Moving the Text 

These commands move the text without changing it or 

changing the position of the cursor in the text. 

<RETURN> typed in the middle of a line: moves the 
cursor and the text after it on the line to 
the next line. 


<CTRL> O OPEN: Opens a new line at the cursor 

position. The cursor remains on the open 
line. Equivalent to typing <RETURN> 
<CTRL> P. Use it to add new lines in 
the middle of a procedure. 

<CTRL> L Scrolls the text so that the line with the 
cursor is in the .middle of the screen. 
Useful for seeing a particular sequence 
completely on the screen. 
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Deleting Text 

These commands delete text. Deleted text is not recov¬ 
erable. When text is deleted within a line, the rest of 
the line moves to the left. 

<DEL> Each stroke of the <DEL> (<ESC>) key 
deletes the character to the left of the 
cursor. <DEL> used at the beginning of 
the line deletes the <RETURN> from 
the previous line, and joins the two lines. 

< CTRL> D DELETE: Deletes the character under the 
cursor. When used at the end of a line 
<CTRL> D deletes the <RETURN>. 


<CTRL> K KILL: Deletes from the cursor to the end 
of the line. If the cursor is at the begin¬ 
ning of the line, <CTRL> K kills the 
whole line. 
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Leaving EDIT Mode 

<CTRL> C COMPLETE: Exits EDIT mode with 

changes intact. Use it when you complete 
a procedure or changes to a procedure. 

<CTRL> G GONE: Exits EDIT mode without making 
any changes to your procedure. Use it 
when you change your mind about mak¬ 
ing changes or have just done a lot of 
typing without realizing you were still 
in EDIT mode. 

When using Logo as a text editor, 
<CTRL> G is the only way to exit from 
the editor. 
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Type as one line 


Procedures 
GRAPHICS CHAPTER 
Turtle Driving Projects 
1. through 4. Screen size: 

Hint: type <CTRL> F to see when the whole turtle 
goes off the edge and appears at the other edge of the 
screen. Type <CTRL> T to see the whole list of num¬ 
bers (distances). Add up the numbers (or tell Logo to: 
100 + 50 + ...), type DRAW and type FD (the total 
number) to check it out.You could also say FD 100 + 

50 + ..., but you would not know what it totalled. 

3. and 4. Diagonals: 

To get to the first corner: use half the distance across 
(from 2) to get to the edge, and half the distance down 
to get to the bottom. Write down this list of instructions 
in case you do not get the true diagonal on the first try. 
Then aim the turtle at the opposite corner. 

5. Command with a negative number and the equiva¬ 
lent: 

Try FD -20 and BK 20 

6. Square examples (Type <RETURN> only where 
indicated): 

1) FD 100 RT 90 <RETURN> 

<CTRL> P <SPACE> <CTRL> P 

<SPACE> <CTRL> P <RETURN> 
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2) FD 100 RT 90 <RETURN> 

FD 100 RT 90 <RETURN> 

FD 100 RT 90 <RETURN> 

FD 100 RT 90 <RETURN> 

3) FD 100 RT 90 <RETURN> 

<CTRL> P <RETURN> 

<CTRL> P <RETURN> 

<CTRL> P <RETURN> 

4) FD 100 RT 90 FD 100 RT 90 FD 100 

RT 90 FD 100 RT 90 <RETURN> 




Square 


Rectangle examples: 

1) FD 100 RT 90 FD 50 RT 90 <RETURN> 

<CTRL> P <RETURN> 

(Why does it take only one repetition for the rectangle 
but three for the square?) 

2) FD 100 RT 90 <RETURN> 

FD 50 RT 90 <RETURN> 

FD 100 RT 90 <RETURN> 

FD 50 RT 90 <RETURN> 
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Type as one line, with only the one <RETURN>: 

3) FD 100 RT 90 FD 50 RT 90 FD 100 

RT 90 FD 50 RT 90 <RETURN> 


A. 


Rectangle 

These instructions leave the turtle in its starting posi¬ 
tion, which is a very good idea. Keep it in mind when 
you write procedures. It makes it easier to plan how 
one procedure follows another when you want to use 
several, as in drawing something that requires both a 
square and a triangle. 

7. Some straight line initials (<RETURN> is assumed 
after each line): 

L: LT 90 FD 50 RT 90 FD 100 
I: FD 100 

V: LT 15 FD 100 BK100 RT 30 FD 100 

T: FD 100 LT 90 FD 25 BK 50 

Y: FD 50 LT 30 FD 50 BK 50 RT 60 FD 50 
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Initial Y 


These instructions leave the turtle at the end of the 
initial. Later the tutorial will tell you how to move the 
turtle without leaving a track. (See section which in¬ 
cludes PENUP and PENDOWN.) 

Procedure Projects 

1. Trackless SETUP: 

TO SETUP 
DRAW 
PU 
LT 90 
FD 140 
RT 90 
BK 110 
PD 

FULLSCREEN 

END 


Terrapin Logo Tutorial 


A-45 





Appendix: Procedures 


gives the same final result as 

TO SETUP 
DRAW 
LT 90 
FD 140 
RT 90 
BK 110 
CS 

FULLSCREEN 

END 

Use PU / PD to avoid having to get rid of the track. 

2. Design with MOVE repeated: 

TO MOVE TO MOVEIT 

FD 100 REPEAT 24 [MOVE] 

RT 15 END 

BK 80 
RT 25 
END 

3. A four-sided figure: 

TO FOURSIDE 

REPEAT 2 [FD 60 RT 30 FD 60 RT 150] 

END 
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4. Rectangles: 

TO RECT 

REPEAT 2 [FD 100 RT 90 FD 50 RT 90] 
END 

TO RECTI 

REPEAT 2 [FD 110 RT 90 FD 10 RT 90] 
END 

5. Setup and a rectangle: 

SETUP SETUP 

RECT RECTI 

6. REPEAT, a shape, and a turn: 

TO HOTPAD 

REPEAT 12 [FOURSIDE RT 30] 

END 

TO WINDMILL 
REPEAT 4 [RECTI RT 90] 

END 




WINDMILL 
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Projects Using Shapes 

1. A square in each corner of the screen: 


TO CORNER.SQ 

TO SETUP 

SETUP 

PU 

SQUARE 

LT 90 

PU 

FD 140 

FD 200 

RT 90 

PD 

BK 110 

SQUARE 

PD 

PU 

END 

RT 90 


FD 220 


LT 90 

TO SQUARE 

PD 

REPEAT 4 | 

SQUARE 

END 

PU 


BK 200 


PD 


SQUARE 


END 


TO FOUR.SQ 



SETUP 

REPEAT 4 [SQUARE PU FD 230 RT 90 PD] 
END 
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Note how in the first version, the turtle walks around 
the screen getting to the location of the closest corner, 
while in the second version it starts each square from 
the corner. It is always more elegant and more under¬ 
standable if you can figure out a pattern and repeat it. 

2. Keeping that in mind, let’s see what would draw a 
square and place the turtle in position to draw another 
in a row. 

SQUARE RT 90 FD 30 LT 90 would do it, 

TO ROW.SQUARE 

REPEAT 3 [SQUARE RT 90 FD 30 LT 90] 

END 

and, if the turtle turned LT 90 first, so would 

SQUARE FD 30 

TO ROW.SQUARE.LEFT 
LT 90 

REPEAT 3 [SQUARE FD 30] 

END 

Lengthening the distance forward would produce a 
row of separated squares. 
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3. Tower of squares: 

TO SQUARE.TOWER 
LT 90 

ROW.SQUARE 

END 


TO SQUARE.TOWER.LEFT 
RT 90 

ROW.SQUARE.LEFT 
END 



4. A leaning tower: 


TO LEANING.TOWER TO BASE 

BASE RT 90 

SQUARE.TOWER FD 30 

END LT 105 

FD 10 
END 
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Discover the distances in a procedure like BASE by 
trying different ones. 



5. A window with four panes: 


TO WINDOW 

REPEAT 4 [SQUARE LT 90] 
END 
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6. Square 

1) TO SQ2 

FD 30 
RT 90 
FD 30 
RT 90 
FD 30 
RT 90 
FD 30 
RT 90 
END 

2) TO SQ3 

REPEAT 4 [FD 30 LT 90] 

END 

7. Analyzing the problem of drawing a triangle: 
Decisions (as described in the text): 

1. Sides will be 30 steps. 

2. Have to try a few different numbers for the turn 

3. Want 3 sides 

TO TRI 

REPEAT 3 [FD 30RT 120] 

END 

8.1—4 using triangles: 


(1) A triangle in each corner of the screen: Substitute 
the triangle procedure for the square procedure (and 
change the name): 
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TO FOUR.TRI 
SETUP 

REPEAT 4 [TRI PU FD 230 RT 90 PD] 
END 

TO CORNER.TRI 
SETUP 
TRI 
PU 

FD 200 
PD 
TRI 
PU 

RT 90 
FD 220 
LT 90 
PD 
TRI 
PU 

BK 200 
PD 
TRI 
END 




Notice that the two procedures produce different 
results with triangles. The orientation of a triangle 
makes a difference. 
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(2) A row of triangles: 

Turn LT 90 (or RT 30) first to lay the triangle down to 
make it easier to connect the triangles. 

TO ROW.TRI 
LT 90 

REPEAT 3 [TRI FD 30] 

END 

TO ROW.TRI.RIGHT 
RT 30 

REPEAT 4 (TRI RT 60 FD 30 LT 60] 

END 


</sAA 


ROW.TRI 


In the first, the turtle is heading in the direction of the 
first side when it starts out. In the second, it has to turn 
each time to head in the right direction. Which is easier 
to understand? Try to make your procedures as simple 
as possible. 

(3) A tower of triangles: 

There are several choices: 

1) Turning the row of triangles will produce a tower 
of triangles balancing on their points. 

2) Drawing another row, fitted into the first, will 
produce a tower with triangles pointing in oppo¬ 
site directions, either balanced on a point, 


A-54 


Terrapin Logo Tutorial 




Appendix: Procedures 


3) or with a base. 

4) Drawing triangles with each base balanced 
on the point of the one below requires a new 
procedure. 


TO TRI.T0WER1 
RT 90 
ROW.TRI 
END 


TO TRI.T0WER2 
RT 90 
ROW.TRI 
RT 60 
FD 30 
RT 120 
RT 90 
ROW.TRI 
END 




TO TRI.T0WER3: Add to 2) (before END) 

FD 15 
RT 90 
FD 30 

FD 30 is slightly too long. Adjust it by trial. 

TO TRI.T0WER4 
LT 90 

REPEAT 3 [TRI RT 60 FD 30 LT 60 BK 15] 

TRI 

END 
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(The REPEAT statement must be typed as one line, 
with only one <RETURN>, at the end.) Note that the 
turtle draws the triangle, turns and moves to the top, 
then turns again and backs into position to draw the 
next one. 


(4) A leaning tower of triangles: 

Turn turtle and draw either ROW.TRI, 

TRI .TOWER or TRI.TOWER2. 

9. Designs using FOURSIDE: 

NOTE: These designs were named after they were 
drawn. 

1) TO PROPELLER 

REPEAT 2 [FOURSIDE RT 180] 

END 

2) TO BOW.TIE 

LT 105 

REPEAT 2 [FOURSIDE RT 180] 

END 

3) TO TRI.PROP 

REPEAT 3 [FOURSIDE RT120] 

END 
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4) TO PINWHEEL 

REPEAT 4 [FOURSIDE RT90] 
END 




5) TO FIVE 

REPEAT 5 [FOURSIDE RT 72] 
END 

6) TO SUPER.PINWHEEL 

REPEAT 6 [FOURSIDE RT 60] 
END 

7) TO BIRD 

PINWHEEL 
SUPER.PINWHEEL 
END 
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8) TO FLEUR 

REPEAT 9 [FOURSIDE RT40] 
END 

9) TO HOTPAD 

REPEAT 12 [FOURSIDE RT 30] 
END 

10) TO FLOWER 

REPEAT 18 [FOURSIDE RT20] 
END 




FLEUR 


FLOWER 


11) TO MUM 

HT 

REPEAT 36 [FOURSIDE RT 10] 
END 

12) TO SUN 

HT 

REPEAT 72 [FOURSIDE RT 5] 
END 
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MUM 



Except for BIRD, these are all essentially the same 
procedure, with a different turn. But see what different 
designs they are! HT (HIDETURTLE) makes the draw¬ 
ing go faster. 
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Progressively more complicated designs: 


Using ROW.SQ: 

1) TO NINE 

HT 

REPEAT 4 [ROW.SQ LT 90] 
END 

2) TO LACE 

HT 

REPEAT 12 [NINE RT 30] 
END 




LACE 


Using TRI.TOWER: 

1) TO JAG.TRI 

LT 90 

REPEAT 3 [TRI.TOWER1 LT 120] 
END 

2) TOJAG3 

REPEAT 3 [JAG.TRI LT 30] 

END 
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10. A window with 6 triangular panes: 

TO TRI.WINDOW TO TRI.WIND0W2 

ROW.TRI REPEAT 6 [TRI RT 69] 

RT120 END 

FD 90 

REPEAT 2 [RT 120 FD 60] 

END 
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11. Some triangle procedures: 

TO TRI TO TRI2 

FD 30 REPEAT 3 [FD 30 RT 120] 

RT120 END 

FD 30 
RT 120 
FD 30 
RT 120 
END 

Projects: More Shapes 

1.—3. Using REPEAT and division: 

1) A square 
TO SQ1 

REPEAT 4 [FD 30 RT 360/4] 

END 

2) A triangle 
TO TRI3 

REPEAT 3 [FD 30 RT 360/3] 

END 

3) A pentagon (5 sides) 

TO PENTA 

REPEAT 5 [FD 30 RT 360/5] 

END 

4) A hexagon (6 sides) 

TO HEXA 

REPEAT 6 [FD 30 RT 360/6] 

END 
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5) A septagon (7 sides) 

TO SEPTA 

REPEAT 7 [FD 30 RT 360/7] 
END 


>□000 


Polygons 


6) A pentadecagon (15 sides) 

TO FIFTEEN 

REPEAT 15 [FD 30 RT 360/15] 

END 

Projects: Sizable Shapes 

1. SQUARE4 to draw squares of various sizes: 

TO SQUARE4 
SOV 10 

sav 20 
sav 30 
sav 40 

END 

TO sav :LENGTH 
REPEAT 4 [FD :LENGTH RT 90] 

END 
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2. Another set of squares beside the first: 

TO TWO.SQUARES 
SQUARE4 
LT 90 
SQUARE4 
END 



TWO SQUARES 

3. A procedure using a specific size square: 


TO WIND0W1 
REPEAT 4 [SQV 30 RT 90] 
END 


A-64 


Terrapin Logo Tutorial 








Appendix: Procedures 



4.4 squares, each 25 bigger than the last, with size of 
the first square input: 

TO BIGGER.SQ :LENGTH 
SQV :LENGTH 
SQV :LENGTH + 25 
SQV :LENGTH + 50 
SQV :LENGTH + 75 
END 



Projects with Regular Polygons 

1. POLY 4100 and POLY 100 4: 

TO POLY :LEN :TURNS 
REPEAT :TURNS [FD :LEN RT 360/:TURNS] 
END 
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POLY 4100 and POLY 100 4 


2. POLY with the same :LEN and varying :TURNS: 



POLY: Same :LEN, varying :TURNS 

3. POLY with the same:TURNS and varying :LEN: 



POLY: Same :TURNS, varying :LEN 
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4. POLY twice, with different :TURNS: 



Using POLY Twice with Different :TURNS 


5. Using POLY to make a triangle: 
POLY 100 3 



6. The largest number you can use for :TURNS: 

There is no largest number ... The figure becomes a 
rough circle at 15, and after that, larger numbers in¬ 
crease the exactness of the curve, but after a while 
there is no more visible improvement and the only 
effect is to make the turtle go more slowly and the 
circle to get larger (with the same length of side). Moni¬ 
tors do not have a high enough resolution to distin¬ 
guish between a many-sided figure and a circle. The 
only reason you might want to be that exact (and slow) 
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would be for printing the designs on paper. The de¬ 
signs shown in the tutorial were drawn with the turn 
indicated in the procedures with them. The mascots 
(rabbit, elephant, and snail) were drawn with slower 
arc procedures for better resolution. 

Projects: Curves 

1. Circles: 2nd with step twice as big, 

3rd with turn twice as big. 


DRAW 

REPEAT 360 [FD 1 RT 1] 
REPEAT 360 [FD 2 RT 1] 
REPEAT 180 [FD 1 RT 2] 



2. Circles to right and left: 
DRAW 

REPEAT 360 [FD 1 RT 1] 
REPEAT 360 [FD 1 LT 1] 
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3. To figure out the diameter (distance across) of a cir¬ 
cle, turn the turtle 90 and walk it across. You can see 
the line better if you type HT (HIDETURTLE). 

4. Quarter-circle arc to the right (make it into a proce¬ 
dure and call it ARCR90): 

REPEAT 360/4 [FD 1 RT 1] 

5. Quarter-circle arc with steps twice as big: 

REPEAT 360/4 [FD 2 RT 1] 

6. Sixth-of-a-circle arc to the left and right (make them 
into procedures and call them ARCR60 and 
ARCL60): 

REPEAT 360/6 [FD 1 LT 1] 

REPEAT 360/6 [FD 1 RT 1] 
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7. A procedure which uses an arc procedure and 
straight lines: 

TO VASE 



PU 


RT 90 


FD 60 

r 

LT 90 

ARCR90 

BK 30 


PD 


HT 


ARCL60 

y, 

ARCR60 

A 

FD 30 

ARCL60 

LT 90 


FD 20 


LT 90 


FD 30 


ARCR60 


ARCL60 


ARCL90 


FD 20 


ARCL90 


END 
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Projects: Simple Recursion 

1. A recursive procedure that draws a little figure, then 
calls itself: 

TO FIGURE 

FD 60 RT 49 FD 10 RT 80 FD 5 RT 90 
FIGURE 
END 



FIGURE 


2. A recursive procedure that uses arcs and lines: 

TO FAN 
PU 

RT 20 
PD 

REPEAT 3 [ARCR 50 60 ARCL 50 90 BK 50 LT 90] 

FAN 

END 




FAN 


FAN 


Terrapin Logo Tutorial 


A-71 






Appendix: Procedures 


3. A recursive procedure using a triangle: 

TO MILLWHEEL 
TRI 

ARCL60 

MILLWHEEL 

END 



4. Stars: 


TO STAR 
FD 75 RT 144 
STAR 
END 


TO STAR9 
FD 75 RT 160 
STAR9 
END 
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Projects: Changing Inputs 

1. SQUARE with a larger increment: 

TO SQUARE1 :LENGTH 
FD :LENGTH RT 90 
SQUARE1 : LENGTH + 15 
END 


TO SQUARE2 :LENGTH 
FD :LENGTH RT 90 
SQUARE2 :LENGTH + 25 
END 



SQUAREl With +15 


SQUARE2 With + 25 


SQUARE with a smaller increment: 

TO SQUARE3 :LENGTH 
FD :LENGTH RT 90 
SQUARE3 :LENGTH + 1 
END 


TO SQUARE4 :LENGTH 
FD .LENGTH RT 90 
SQUARE4 :LENGTH + 3 
END 
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SQUARE with an increment subtracted: 

TO SQUARE5 :LENGTH 
FD :LENGTH RT 90 
SQUARES :LENGTH -5 
END 

TO SQUARE6 :LENGTH 
FD :LENGTH RT 90 
SQUARE6 :LENGTH -10 
END 





Note what happens when the length of the side be¬ 
comes very small and then negative... 

3. SQUARE with a slightly different turn: 

TO SQUARE7 :LENGTH 
FD : LENGTH RT 93 
SQUARE7 :LENGTH + 5 
END 

TO SQUARE8 :LENGTH 
FD :LENGTH RT 87 
SQUARE8 :LENGTH + 5 
END 
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SQUARE7 With RT 93 SQUARE8 With RT 87 

Now you begin to see some of the power of changing 
the input in a recursive procedure. 


4. SQUARE with the input changed by multiplication: 

TO SQUARE9 :LENGTH 
FD :LENGTH RT 93 
SQUARE9 :LENGTH * 1.1 
END 

TO SQUARE10 :LENGTH 
FD :LENGTH RT 87 
SQUARE10 :LENGTH * 2 
END 




SQUARE9 With *1.1 



5. SQUARE, SQUAREl, ... SQUARE10 in both WRAP 
and NOWRAP mode. 
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6. All the SQUARES in WRAP and PC 6 (PENCOLOR 
6): The designs will continually change. Sample pic¬ 
ture here catches only one moment in the succession 
of changes. 


Sags 

ShSm 

■Bawaa 

t =-===== 

jj 

■ 

Isi 

■ 


A Squaral in Wrap Mode 


7. Using a SQUARE procedure with variable input 
(such as SQV) in a procedure that draws successively 
larger squares. 

TO LARGER.SQUARES :LENGTH 
SQV :LENGTH 

LARGER.SQUARES :LENGTH + 10 
END 

TO SQV :LENGTH 
REPEAT 4 [FD :LENGTH RT 90] 

END 
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If you wanted to center your squares, instead of draw¬ 
ing them with two common sides, you would move 
the turtle between squares: 

TO LARGER.SQUARES :LENGTH 
SQV :LENGTH 

PU LT 90 FD 5 RT 90 BK 5 PD 
LARGER.SQUARES :LENGTH + 10 
END 



LARGER.SQUARES (Centered) 


Note that the turtle turns left, moves the distance of 
half the increment, turns right and backs into position, 
moving the distance of half the increment again. The 
backing up saves an extra turn. 

Projects: Testing and Stopping 

1. Replacing the 45 in RT 45: 

TO DESIGN TIMES :LENGTH 
IF TIMES < 1 STOP 
SQV :LENGTH 
RT TIMES *4 
DESIGN TIMES—1:LENGTH 
END 
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DESIGN 


2. A tower of increasingly smaller squares, number of 
squares chosen when procedure is run, with a setup 
procedure to start lower on the screen (Type 
SET.TOWER, then type TOWER.OF.SQUARES 5 55): 

TO TOWER.OF.SQUARES :NUM :LEN 
IF :NUM = OTHEN STOP 
SQV :LEN 

FD :LEN RT 90 FD 5 LT 90 
TOWER.OF.SQUARES :NUM-1 :LEN-10 

END 

TO SET.TOWER 
PU BK 100 PD 
END 
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After drawing each square, the turtle moves up the 
side of the square just drawn, turns, moves half the 
size of the increment (so the next square is centered), 
and turns again, ready to begin the next square. 

3. DESIGN with a variable turn: 

TO DESIGN1 :LENGTH :TIMES :TURN 
IF iLENGTH < 0 THEN STOP 
IF :TIMES = 0 THEN STOP 
SQUARE :LENGTH RT :TURN 
DESIGN1 :LENGTH :TIMES -1 :TURN 
END 



DESIGNl 


Recursion Projects 

1. Successively smaller houses: 

Begin by designing one house with a variable for a 
unit of size, to be determined later. The parts will re¬ 
quire some instructions between them for positioning, 
but that too can wait. For a start, just describe what 
will be in the picture. 
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TO HOUSE :SIZE 
FRONT :SIZE 
ROOF :SIZE 
END 



TO FRONT :SIZE 
WALLS :SIZE 
DOOR :SIZE 
WINDOW :SIZE 
END 



Now is the time to decide the size relationship of the 
components. Test each of these to be sure it works cor¬ 
rectly before you begin on the interfacing instructions 
that make the parts go together. 

TO WALLS :SIZE TO ROOF :SIZE 

SQUARE :SIZE * 3 TRI :SIZE * 3 

END END 

TO WINDOW :SIZE 
REPEAT 4 [SQUARE :SIZE/2 RT 90] 

END 

TO DOOR :SIZE 
RECT:SIZE*2 :SIZE 
END 
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TO TRI :LENGTH 
REPEAT 3 [FD :LENGTH RT 120] 

END 

TO SQUARE :LENGTH 
REPEAT 4 [FD :LENGTH RT 90] 

END 

TO RECT :LEN :WIDTH 

REPEAT 2 [FD :LEN RT 90 FD :WIDTH RT 90] 

END 

Now comes the fitting together of the parts. 

In each case, the turtle finishes in its starting position. 
This makes it much easier to figure out how to get to 
where the next part is drawn. 
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One possible solution: 

TO HOUSE :SIZE 
FRONT :SIZE 
FD :SIZE * 3 
RT 30 

ROOF :SIZE 
LT 30 

BK :SIZE *3 
END 

TO SETUP 
FULLSCREEN 
PU 
LT 90 
FD 135 
RT 90 
BK 115 
PD 
END 


TO FRONT :SIZE 
WALLS :SIZE 
RT 90 

FD :SIZE/3 
LT 90 

DOOR :SIZE 
PU 

RT 90 

FD :SIZE * 2 
LT 90 

FD :SIZE * 1.5 
PD 

WINDOW :SIZE 
PU 

BK :SIZE * 1.5 
LT 90 

FD :SIZE * 2 + :SIZE/3 
RT 90 
PD 
END 


SETUP moves the turtle to the lower left corner of the 
screen to draw the first house. 
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The next problem is the procedure which will use 
HOUSE to draw a succession of smaller houses and 
stop. 

TO H :SIZE 
IF :SIZE < 2 STOP 
HOUSE :SIZE 
PU 

RT 90 

FD :SIZE * 3.4 
LT 90 

FD :SIZE * 2 
PD 

H :SIZE * .75 
END 

The 3.4,2, and .75 were determined by trial and error, 
to see what came out the best on the screen. 

Now all that remains is to create the procedure 
HOUSES which will run the other procedures when 
you type HOUSES. 

TO HOUSES 
HT 

SETUP 
H 30 
END 

To extend this so that you can determine the size re¬ 
duction when you run the procedure, use a variable 
instead of the .75: 
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TO H :SIZE :FACT0R 
IF :SIZE < 2 STOP 
HOUSE :SIZE 
PU 

RT 90 

FD :SIZE * 3.4 
LT 90 

FD :SIZE * 2 
PD 

H :SIZE * :FACT0R :FACT0R 
END 

TO HOUSES :FACTOR 
HT 

SETUP 

H 30 :FACTOR 
END 



Now you have the option of making larger and larger 
houses, defying perspective, but you will need a test 
for maximum size to make the procedure stop. 
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2. A binary tree: 


The basic pattern: 

TO TREE :LENGTH 
RT 45 

FD :LENGTH 
BK :LENGTH 
LT 90 

FD :LENGTH 
BK :LENGTH 
RT 45 
END 



Note that the turtle finishes in its starting position. 

If you want to draw another one of these at each tip, 
then you must determine when the turtle is at the tip 
and call the procedure again. Each FD :LENGTH takes 
the turtle to a tip, so it is after each FD that the proce¬ 
dure should be called again. 
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One way to stop this procedure so it can recurse and 
draw the whole tree, is to specify the number of forks: 

TO TREE :LENGTH :F0RKS 
IF :F0RKS = 0 STOP 
RT 45 

FD :LENGTH 

TREE :LENGTH :F0RKS -1 
BK :LENGTH 
LT 90 

FD :LENGTH 

TREE .LENGTH :F0RKS -1 
BK :LENGTH 
RT 45 
END 



A tree with successively smaller branches could be 
told to stop when :LENGTH reached a certain size: 

TO TREE1 :LENGTH 
IF :LENGTH < 5 STOP 
RT 45 

FD :LENGTH 
TREE1 :LENGTH / 2 
BK :LENGTH 
LT 90 

FD :LENGTH 
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TREE1 :LENGTH /2 
BK :LENGTH 
RT 45 
END 

TO TREE2 :LENGTH 
IF :LENGTH < 5 STOP 
RT 45 

FD : LENGTH 
TREE2 :LENGTH * .75 
BK :LENGTH 
LT 90 

FD :LENGTH 
TREE2 :LENGTH * .75 
BK :LENGTH 
RT 45 
END 



TREE240 


Each of these makes a different design. To alter it even 
more, consider making it with one side different from 
the other, perhaps doubling the length of the branches 
or changing the turn. 

There is a good discussion of binary trees in LOGO 
FOR THE APPLE II, by Professor Harold Abelson, 
M.I.T. 
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3. A fish in a fish in a fish. 


First draw one fish, then try it in different sizes to be 
sure they will fit together. Then, as in the houses prob¬ 
lem, write the procedure which fits them together. 


TO FISH :SIZE 
RT 30 
PU 

RARC .SIZE * 3 10 
PD 

RARC :SIZE * 3 110 
TAIL :SIZE 
RARC :SIZE * 3 110 
END 


TO SETUP.FISH 
PU 
LT 90 
FD 100 
RT 90 
PD 
END 


TO FISH.IN.FISH :SIZE TO EYE 

IF :SIZE > 40 STOP PU 

FISH :SIZE RT 90 

PU FD 40 

RARC :SIZE * 3 10 LT 90 

LT 60 FD 8 

FD :SIZE/3 LT 90 

RT 90 BK 10 

FISH.IN.FISH :SIZE + 10 RT 30 

END FD 5 

END 


TO FISHES 
SETUP.FISH 
FISH.IN.FISH 10 
RT 60 
EYE 
END 


TO TAIL :SIZE 
FD :SIZE 
BK :SIZE 
RT 60 
BK :SIZE 
FD :SIZE 
END 
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Projects Using Random 

1. SQUARE3 using FD RANDOM 100 in SQUARESIDE: 

TO SQUARESIDE TO SQUARE3 

FD RANDOM 100 SQUARESIDE 

RT 90 SQUARE3 

END END 



SQUARE3 with RANDOM 100 

2. REPEAT using a random turn between 0 and 360: 
REPEAT 50 [FD 20 RT RANDOM 360] 
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3. A recursive procedure using a random turn between 
90 and 120: 

TO WORM 
FD 20 

RT 90 + RANDOM 30 
WORM 
END 




WORM 

To specify a range BETWEEN two numbers, add the 
beginning number of the range (here 90) to the amount 
of the range (30, for a range of from 90 to 120). The 
computer will always choose a number within the 
amount of the range (here 30) and add it to the begin¬ 
ning number (here 90), to obtain a number within the 
specified range (here 90 -I- 0 to 90 + 30, or 90 —120). 

4. Other ranges of turn: 


TO WANDER 
FD 2 

RT RANDOM 10 
WANDER 
END 


TO WIGGLE 
FD 5 

RT -10 + RANDOM 20 
WIGGLE 
END 
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Mascots: Elephant, Rabbit, Snail 

No lions and tigers and bears, but an elephant (that’s 
for remembrance), a rabbit (denoting speed and 
ingenuity), and a snail (go slow... slow... slow). 


The arcs used are described in the arc development 
section. To use the arc procedures on the Utilities Disk, 
change ARCR to RARC and ARCL to LARC in each of 
the procedures below. 

Elephant 

TO ELEPHANT :SIZE 
HT 

ELEPHANT.EAR :SIZE 
TRUNK :SIZE 
TUSK :SIZE 
EYE :SIZE 
END 

TO TUSK :SIZE 
ARCL 10*:SIZE 70 
RT 160 

ARCR 10*:SIZE 50 
END 

TO ELEPHANT EAR :SIZE 
RT 160 

FD 3 *:SIZE 
ARCR 7*:SIZE 180 
ARCR 13*:SIZE 90 
END 

TO TRUNK :SIZE 
ARCR 17*:SIZE 180 
ARCR :SIZE 180 
ARCL 10*:SIZE 100 
RT 180 

_END_ 
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TO EYE :SIZE 
PU 

RT 60 

ARCL 10*:SIZE 60 
PD 

RCIRCLE2*:SIZE 

END 



For the mascot elephant, :SIZE = 1. 
Rabbit 


TO RABBIT 

TO BODY 

HT 

ARCR 20 60 

HEAD 

LCIRCLE 3.5 

ARCL 7.5 90 

ARCL 20 60 

RT 60 

ARCR 1.5 180 

BODY 

ARCR 20 60 

END 

LT 60 

ARCR 50 30 
ARCL 50 30 
ARCR 1.5 180 
ARCR 50 30 


END 
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TO EARS TO EAR TO HEAD 

EAR ARCR 30 60 EARS 

RT 150 RT 120 ARCL 6 540 

EAR ARCR 30 60 END 

END END 


0 fr §7 

Evolving the Rabbit 


Snail 

TO SNAIL 
HT 

SNAIL.BDDY 
SNAIL.HEAD 
RT 180 

RARC 5 (270-HEADING) 
SNAIL.FOOT 
END 



TO POLYARC :SIZE :TIMES 
IF :TIMES = 0 THEN STOP 
ARCR :SIZE 60 

POLYARC :SIZE + 1 :TIMES-1 
END 
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TO SNAIL.BODY 
POLYARC 1 15 
LARC 10 60 
END 

TO ANTENNA 
RARC 15 60 
RARC 1 360 
PU 

RT 180 
LARC 15 60 
RT 180 
PD 
END 


r 


©v©cf istyf 


Evolving the Snail 



TO SNAIL.HEAD 
LARC 5 475 
ANTENNA 
LARC 5 20 
ANTENNA 
END 

TO SNAIL.FOOT 
RARC 5 40 
LT 100 
RARC 15 90 
LARC 10 60 
RARC 3 120 
RT 60 
LARC 8 90 
END 
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Procedures for Saving Pictures 


The illustrations in the Graphics Procedures section 
were drawn (2/3 scale) and stored on the disk with the 
following procedures: 


TO STORE :PROCEDURE TO H 

DRAW PU 

frame home 

H PD 

RUN SENTENCE:PROCEDURE [ J END 

TURTLE 

SAVEPICT :PROCEDURE 
END 


TO TURTLE 
LT 90 BK 6 

REPEAT 3 [FD 12 RT 120] 

END 

TO FRAME 

PU SETXY-90 (-85) SETHEADING 0 PD 
REPEAT 2 [FD 160 RT 90 FD 180 RT 90] 

END 

Example: type 
STORE "TOWN 

STORE clears the screen, draws the frame, moves the 
turtle to the HOME position, then runs the procedure 
TOWN. The SENTENCE :PROCEDURE [ ] makes a list 
out of the procedure name, so it can be RUN by another 
procedure. It turns the command into RUN [TOWN]. 
(See the chapter on Words and Lists.) The procedure 
TURTLE draws a little turtle, since SAVEPICT does 
not draw the turtle. SAVEPICT stores the picture on 
the disk under the procedure name. 
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Here is a set of procedures used to generate droves of 
wild animals. This also illustrates a use for SETXY. 

TO DROVE :ANIMAL 
FULLSCREEN 
QUAD :ANIMAL (-90) 

END 

TO QUAD :PR0C :Y 
IF :Y > 90 STOP 
LINE (-125) :Y :PR0C 
QUAD :PR0C :Y +45 
END 


TO LINE :X :Y :PR0C 
IF :X > 55 STOP 
PU 

SETXY :X :Y 
PD 

SETHEADING 0 
RUN SE :PR0C [ ] 

LINE :X + 60 :Y :PR0C 
END 

To draw a lot of little pictures, type DROVE and the 
name of the procedure that draws the picture. 

For example, type 

DROVE "SNAIL 


DROVE of Snails 
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DROVE shows you the whole screen, since the drawing 
begins in the lower left corner, and calls QUAD with a 
Y value of -90, close to the bottom of the screen. 

DROVE is in charge of the whole project. 

QUAD tests to be sure you are not going to be drawing 
off the top of the screen (Y > 90), then calls LINE with 
a value for X (-125) which will start the drawing near 
the left edge of the screen. When LINE has finished, 
QUAD moves into position for the next line of pictures 
and calls LINE again. QUAD uses LINE several times 
to draw rows of pictures. 


LINE tests to be sure you are not drawing off the right 
side of the screen, then takes the beginning value of X 
and the value of Y, and moves to that position. LINE 
then uses RUN to call the procedure that draws the 
picture, and calls itself with a new position to the right 
(incremented value of :X, same value of :Y). LINE 
draws one row of pictures. 














C* 

C* 



5* 





DROVE of Elephants 
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Developing an Arc Procedure 

It is easiest to develop a circle procedure, then general¬ 
ize it to do arcs. Then you can use the arc procedure to 
do everything, including circles. 

We want a circle procedure which will depend on the 
radius, so that we can specify the size by giving the 
radius when the procedure is run. We work from the 
fact that the circumference of a circle equals the radius 
times 2 PI: C = 2 PI (times) R, or, translating for the 
computer, C = 2 ^3.14159 ^-R. 

In Logo, every drawing is some combination of steps 
and turns, so the circle must also consist of steps and 
turns. A circle of a certain fixed size is drawn by 

REPEAT 360 [FD 1 RT 1] 

The 360 comes from the turn of 1; to turn 360 degrees 
with a turn of 1 degree requires 360 turns, or 360/1 = 
360. 

The 360 might also be said to represent the circumfer¬ 
ence, the distance around. We can substitute for it the 
equivalent 2^3.14159^R. This makes the circumfer¬ 
ence depend on the radius, as we wanted. 

The turn must also be changed to be a function of the 
radius; if we use the same step and turn as before, we 
will not have changed the size of the circle. How can 
we figure out what the turn should be? 

With a turn of 1 degree, we figured out the number of 
turns by dividing 360 degrees by that amount, to get 
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360 turns. If we use the same relationship, we see that 
the amount of turn is 360 divided by the number of 
turns. 

The number of turns in our new model is 2 * 3.14159 * R, 
so the amount of the turn will be 360 / 2 * 3.14159 * R. 


Our circle statement (type as one line) becomes 

Type as one line REPEAT 2*3.14159* iRADIUS 

[FD 1 RT 360/(2*3.14159* iRADIUS)] 

Our circle procedure becomes 

TO RCIRCLE :RADIUS 

Typeas one line REPEAT 2* 3.14159 * iRADIUS 

[FD 1 RT 360/(2* 3.14159* iRADIUS)] 

END 

Type the REPEAT statement as one line, with only one 
<RETURN>, at the end. Substitute LT for an LCIRCLE 
procedure. 

To change the circle procedure to an arc procedure, we 
must change the number of turns to draw the fraction 
of the circle the arc represents. How do we figure that 
fraction? 

% 

A 60 degree arc is 60/360, or l/6th of a circle. The frac¬ 
tion of the circle which is any arc then, would be repre¬ 
sented by (its size) / 360. If we call its size iDEGREES, 
then iDEGREES / 360 would be the fraction of the cir¬ 
cle which is the arc of the size iDEGREES. (360/360 = 
the circle) 
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The number of turns would be the fraction of the circle 
represented by the arc, times the number required by 
the full circle, or 

(DEGREES/360)-*• (2*3.14159 *:RADIUS) 

The arc procedure would be 
TO ARCR :RAD :DEG 

Type as one line REPEAT (: DEG/360) * (2 * 3.14159 * :RAD) 

[FD 1 RT 360/(2*3.14159*:RAD)] 

END 

Simplifying by doing the arithmetic gives 
TO ARCR :RAD :DEG 

REPEAT .0174532 * :DEG * :RAD [FD 1 RT 57.295827 / :RAD] 
END 

The circle procedure becomes 

TO RCIRCLE :RADIUS 
ARCR :RADIUS 360 
END 

LCIR CLE would use ARCL, the same as ARCR with LT 
substituted for RT. If you wanted to be silly, you could 
write 

TO ARCL :RADIUS DEGREES 
MAKE "RADIUS :RADIUS*(-1) 

ARCR :RADIUS DEGREES 
END 

Now all the arc and circle procedures are based on 
one, and only one, procedure. Making the radius nega¬ 
tive has the effect of making the turn negative, or LT. 
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To increase the resolution of the picture, really only 
desirable when you are going to print a design on pa¬ 
per, decrease the size of the step. Replace the original 1 
with :STEP and add the variable to the title. 

To keep our procedure drawing arcs with the specified 
radius, we must multiply the turn by the :STEP and 
consequently, divide the number of turns by :STEP, 
giving us (name changed to avoid confusion with the 
non-variable step version): 

TO RARC :RADIUS :DEG :STEP 
iy P e as one line REPEAT (.0174532 * :DEG * :RADIUS)/:STEP 
[FD :STEP RT (57.295827* :STEP) /:RADIUS] 

END 

Debugging with TRACE, NOTRACE 


TRACE allows you to watch the execution of your 
procedure line by line. Logo prints a statement, waits 
for you to type a character, then executes the statement. 
TRACE also tells you when it is starting a subproce¬ 
dure, and tells you what the inputs are. 


In TRACE mode, type <CTRL> G, as usual, to stop a 
procedure. <CTRL> Z will make it PAUSE; type CO 
(or CONTINUE) to resume. Type NOTRACE to stop 
tracing. 


TRACE and NOTRACE may be used in a procedure to 
trace just a portion of it. 
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Adding Remarks in Your Procedures 

When you use descriptive procedure names and vari¬ 
able names, and write short procedures and subproce¬ 
dures, your need for remarks throughout your proce¬ 
dures is lessened, and in many cases, eliminated. 


However, for those remarks that simply must go in, 
precede them with a semi-colon (;) as in the (not to be 
taken seriously as an) example: 


TO SQUARE 

FD 100;GOES FORWARD 100 
RT 90;GOES RIGHT 90 
SQUARE;CALLS ITSELF 
END 


Switching Disk Drives: SETDISK 

Occasionally you may want to use more than one disk 
drive in your Logo system. Use the SETDISK com¬ 
mand to switchback and forth between drives. 
SETDISK takes two inputs, a drive number and a slot 
number, and causes all subsequent file operations to be 
done in that drive. For example, SETDISK 2 6 transfers 
control to the second drive in a two-drive system. De¬ 
fault is SETDISK 1 6. 
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Creating Self-Starting Files 
Using the STARTUP Variable 


It is possible to write Logo files which begin executing 
immediately after being read into the workspace. 
There is an interesting way of doing this using the ad¬ 
dress SAVMOD found in the ADDRESSES file (see sec¬ 
tion 7.2 of the Technical Manual); however, this way is 
also rather difficult. 


A much easier way to create self-starting files is to use 
a STARTUP variable. Simply include in the file a 
global variable consisting of a list of the procedure to 
be started automatically. For example, if Logo encoun¬ 
ters the message 

MAKE "STARTUP [DEMO] 

while reading in a file, the procedure DEMO will begin 
automatically. 
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SETPENCOLOR could be written several ways. One 
way that uses no new techniques is this: 

TO SETPENCOLOR :CHTR 
IF :CHTR = 0 PC 0 
IF :CHTR = 1 PC 1 
IF :CHTR = 2 PC2 
IF :CHTR = 3 PC3 
IF :CHTR = 4 PC4 
IF :CHTR = 5 PC 5 
IF :CHTR = 6 PC6 

END 

Logo, however, makes life much simpler. If the charac¬ 
ter is not a number, it certainly is not a 0,1, 2, 3, etc., 
and so we need not make all of those tests separately. 
This is worded concisely in Logo: 

IF NOT NUMBER? :CHTR STOP 

Then, if it is a number less than 7, it must be a 0 
through 6, and we can just set the PENCOLOR to what¬ 
ever CHTR happens to be. 

IF :CHTR < 7 PC :CHTR 

And that is all the procedure needs to do. Here are two 
ways to write that procedure. 

TO SETPENCOLOR :CHTR 
IF NOT NUMBER?: CHTR STOP 
IF :CHTR < 7 PC :CHTR 

END 
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TO SETPENCOLOR :CHTR 
IF NUMBER? :CHTR THEN IF :CHTR < 7 PC :CHTR 
END 

As a frill, the line in EASY could be: 

IF :CHTR = “C PRINT1 [WHAT COLOR?] SETPENCOLOR RC 

Look up PRINTl in the Logo glossary. 

4. You can use exactly the same strategy as above. Be¬ 
cause the test for the second character is the same for 
setting the background color as for setting the pen 
color, it might make sense to use one procedure for 
both. 

The problem is that after the procedure has verified 
that the character is a 0 through 6, it must know not 
only what character was typed, but also which to set, 
pen or background color. 

Here is a procedure that can do both, but it involves 
more advanced techniques than we have yet explained 
in the tutorial. Don’t worry! You can choose either to 
use the ones fully explained, or jump the gun and try 
the new technique. 

TO SETCOLOR iWHICHCOLOR :CHTR 
IF NOT NUMBER? :CHTR STOP 
IF :CHTR > 6 STOP 

IF :WHICHC0L0R = [PEN] PC :CHTR ELSE BG :CHTR 
END 
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The lines in EASY would need to be slightly different, 
stating which color, PEN or BACKGROUND, was to be 
changed. Here is one set of possibilities. 

IF :CHTR = "C PRINT1 [WHAT COLOR?] SETCOLOR [PEN] 
RC 

IF :CHTR = "B PRINT1 [WHAT COLOR?] SETCOLOR 
[BACKGROUND] RC 

5. Recognizing and using digits can be done several 
ways. The simplest (if not most elegant) way to write 
EASY would be to add a bunch of lines like this: 

IF :CHTR = 2 MAKE “MULTIPLE 2 
IF :CHTR = 3 MAKE "MULTIPLE 3 
IF :CHTR = 4 MAKE "MULTIPLE 4 
IF :CHTR = 5 MAKE "MULTIPLE 5 
IF :CHTR = 6 MAKE "MULTIPLE 6 
IF :CHTR = 7 MAKE "MULTIPLE 7 
IF :CHTR = 8 MAKE "MULTIPLE 8 
IF :CHTR = 9 MAKE "MULTIPLE 9 

Of course, all these lines say essentially the same 
thing, namely: “If the character is a number, make 
MULTIPLE that number.” That can be translated 
straightforwardly into Logo with the much more 
compact statement. 

IF NUMBER? :CHTR MAKE "MULTIPLE :CHTR 

Inserting this new logic into EASY requires that we 
use the new value, and so the lines that move the turtle 
must now incorporate MULTIPLE thus: 


Appendix: Words and Lists 


IF :CHTR = "F FD 10 * :MULTIPLE 
IF :CHTR = "R RT15 * :MULTIPLE 
IF :CHTR = "L LT15 * :MULTIPLE 

Alternatively, the lines could be 

IF :CHTR = "F REPEAT :MULTIPLE [FD 10] etc. 

Finally, we always want to reset the multiple to 1 so 
that it doesn’t spill over from one command to the 
next. 


Here is how the procedure might look. 

TO QUICKDRAW 
EASY RC 
QUICKDRAW 
END 

TO EASY :CHTR 

IF :CHTR = "F FD 10 * :MULTIPLE 
IF :CHTR = "R RT 15 * :MULTIPLE 
IF :CHTR = "LLT15 * :MULTIPLE 
IF :CHTR = "D DRAW 
IF :CHTR = "U PU 
IF :CHTR = "P PD 
IF :CHTR = "H HT 
IF :CHTR = "S ST 

IF :CHTR = "C PRINT1 [WHAT COLOR?] SETCOLOR [PEN] 
RC 

IF :CHTR = "B PRINT1 [WHAT COLOR?] SETCOLOR [BG] 
RC 

MAKE "MULTIPLE 1 

IF NUMBER? :CHTR MAKE "MULTIPLE :CHTR 
END 
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EASY sets MULTIPLE to 1 every time it is executed. As 
already mentioned, this is so that L or F or R will mean 
the same as 1L or IF or 1R each time unless some other 
number is typed. 

The placement of the MAKE “MULTIPLE 1 line is 
important. It must be placed after the lines that use 
the value of MULTIPLE and before the line that sets 
MULTIPLE to values other than 1. Otherwise the spe¬ 
cial values of MULTIPLE would persist too long or be 
erased too soon. 


A second thing to notice is that EASY cannot use 
MULTIPLE before setting it the first time. So before 
QUICKDRAW can be started, MULTIPLE must be 
given a value (presumably the value 1). This startup 
procedure seems convenient: 


TO QD 

MAKE "MULTIPLE 1 
QUICKDRAW 
END 




6. The procedure PEN picks the pen up if it is already 
down, and puts it down if it is already up. We say it 
“toggles the pen state.” To include it in EASY, only one 
line is needed: 


IF :CHTR = "P PEN 


The line IF :CHTR = “U PU can be eliminated, because 
P now takes care of both PD and PU. 

Since PEN uses the variable PENPOS, QD (the setup 
procedure written earlier) should initially set the pen 
position to [DOWN]. 
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TO QD 

MAKE "MULTIPLE 1 
MAKE "PENPOS [DOWN] 

QUICKDRAW 

END 

It is also possible to set up a toggle that works with¬ 
out setting a global variable with MAKE. Look up 
TURTLESTATE in the Logo glossary, and learn about 
FIRST (from the glossary or later in this chapter) to 
understand this alternate version of PEN which we are 
calling TOGGLEPEN. 

TO EASY :CHTR 
IF :CHTR = "F FD 10 
IF :CHTR = "R RT15 
IF :CHTR = "L LT15 
IF :CHTR = "D DRAW 
IF :CHTR = "P TOGGLEPEN 
END 

TO TOGGLEPEN 
IF FIRST TSPU ELSE PD 
END 

TS is the abbreviation for TURTLESTATE. The first 
element of the list that TS outputs tells whether the 
turtle’s pen is up or down. If it is down (if FIRST TS is 
TRUE) TOGGLEPEN puts it up, otherwise it puts it 
down. 

In this case, since no global variable is involved, no 
additions to QD would need to have been made. 
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7. TO T06GLE.SH0WN 

TEST :SH0WN = [SHOWN] 

IFTRUE HT MAKE "SHOWN [HIDDEN] 

IFFALSE ST MAKE "SHOWN [SHOWN] 

END 

It is not necessary to tell the user whether the turtle is 
shown or not, so the PRINT statement was not added. 
Since the values [SHOWN] and [HIDDEN] now serve 
only as information to the procedure (they will not be 
printed as information to the user), it would be more 
“natural” to use TRUE and FALSE to state whether the 
turtle was shown. 

The logic would then be this: If the turtle is shown 
(that is, if SHOWN is TRUE) then hide the turtle, else 
show it. In either case, make SHOWN whatever it was 
not; use the primitive NOT to make it FALSE if it is 
TRUE, or TRUE if it is FALSE. 

TO TOGGLE.SHOWN 
IF :SH0WN HT ELSE ST 
MAKE "SHOWN NOT :SH0WN 
END 

Finally, a strategy using TURTLESTATE and avoiding 
the use of global variables works for showing and hid¬ 
ing the turtle as well as for the pen position. 

Again, this strategy makes use of techniques we have 
not yet described, but which you can look up if you 
want to begin learning about them now. 



A-112 


Terrapin Logo Tutorial 


Appendix: Words and Lists 


TOGGLE.SHOWN using TURTLESTATE would look 
like this: 


TO TOGGLE.SHOWN 
IF FIRST BUTFIRST TS HT ELSE ST 
END 


See TURTLESTATE, and learn about BUTFIRST (in 
the glossary or later in this chapter). 


8. ACTION no longer needs to control the turns di¬ 
rectly, but can handle turning the way it handles 
speed. So, it might look like this: 

TO ACTION :CHTR 

IF :CHTR = "R MAKE "ANG :ANG + 2 ;TURN RIGHT 
MORE 

IF :CHTR = "L MAKE "ANG :ANG - 2 ;TURN LEFT MORE 
IF :CHTR = "F MAKE "DIST :DIST + 2 ; FASTER 
IF :CHTR = "S MAKE "DIST :DIST-2 ; SLOWER 
IF :CHTR = "D DRAW 
END 

START now has to initialize one more global variable, 
ANG, to something sensible, and might look like this: 

TO START 
MAKE "DISTO 
MAKE "ANG 0 
LOOP 
END 
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It might also be nice if the D key really reset every¬ 
thing. As the program currently stands, D will clear the 
screen, but still leave the turtle flying around in what¬ 
ever way it last flew. It might be reasonable to change 


IF :CHTR = "D DRAW 


to 

IF :CHTR = "D CLEAR 

and then to write a procedure CLEAR which reini¬ 
tializes the global variables and clears the screen. 

TO CLEAR 
MAKE "ANG 0 
MAKE "DIST 0 
DRAW 
END 

9. The feature to stop the turtle must reinitialize ANG 
and DIST without clearing the screen. Here is one. 

TO RESET 
MAKE "ANG 0 
MAKE "DIST 0 
END 

Then the lines in ACTION would be 
IF :CHTR = "D CLEAR 

to accomplish the previous task of clearing the screen, 
and 


IF :CHTR = ". RESET 
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to stop the turtle without clearing the screen. (The 
command character to stop the turtle is the period.) 

Here are lines for reversing the rotation of the turtle, 
reversing the direction of the turtle and reversing both. 
Insert them and play with them. The effects are very 
interesting. 

IF :CHTR = "T MAKE "ANG (- :ANG); REVERSES TURN 
IF :CHTR = "M MAKE "DIST (- :DIST); REVERSES 
MOVEMENT 

IF :CHTR = "B MAKE "DIST (- :DIST) 

MAKE "ANG (- :ANG); REVERSES BOTH 

10. TO DECODE :N 

OP NTH :N "ABCDEFGHIJKLMNOPQRSTUVWXYZ 
END 

There is another way that doesn’t involve “counting” 
with NTH (and therefore is faster). CHAR is a Logo 
primitive that takes an integer as input and outputs the 
character whose ASCII code is that integer. The ASCII 
code for A is 65. For B, it is 66; for C, 67, and so on. So 
another way to write DECODE is: 

TO DECODE :N 
OP CHAR (:N + 64) 

END 

11. TO ONENUM :LIST 

OP DECODE FIRST :LIST 
END 
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12. TO TWONUM :LIST 

OP WORD DECODE FIRST :LIST ONENUM 
BF :LIST 
END 


13. TO THREENUM :LIST 

OP WORD DECODE FIRST :LIST TWONUM 
BF :LIST 
END 

14. Here is the logic. If I have only one number in my 
list, I know exactly what to do. As in ONENUM, I sim¬ 
ply OP DECODE FIRST :LIST. 

If my list is longer than that, I cannot handle it all at 
once, so I get ready to glue together the decoding of the 
first number (which I can do immediately) and the de- 
coding of a slightly shorter list. 

Since the exact same reasoning applies to the slightly 
shorter list, the same procedure can be used. Either it 
can now handle the list directly (because there is only 
one number left in it), or it, too, gets ready to glue on its 
little piece and defers the rest of the job to another step. 
Here is the procedure it generates. 

TO ANYNUM :LIST 
IF( BF :LIST) = [] 

OP DECODE FIRST :LIST 
OP WORD DECODE FIRST :LIST 
ANYNUM BF :LIST 
END 



A-116 


Terrapin Logo Tutorial 




Appendix: Words and Lists 


15. This could all be done in a single procedure with 
one long and ugly line that looks something like this: 

TO RANDSENT 

PR (SE NTH 1 + RANDOM 7 PEOPLE 
NTH 1 + RANDOM 6 ACTIONS 
NTH 1 + RANDOM 7 PEOPLE) 

END 

The repetitive elements and the difficulty of seeing 
which words go with which make it useful to write a 
helpful subprocedure. Good style makes it easy to 
change and extend the program if you want to. Here is 
a first attempt: 

TO RANDSENT 

PR SENTENCE WHO DIDWHAT 
END 

TO WHO 

OP PICK 7 PEOPLE 
END 

TO DIDWHAT 
OPSEDIDITWHO 
END 

TO DIDIT 

OP PICK 6 ACTIONS 
END 

TO PICK iLISTSIZE :LIST 
OP NTH 1 + RANDOM :LISTSIZE :LIST 
END 
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A problem with this way of doing things is that if 
ACTIONS or PEOPLE are edited, and the number of 
items in their lists is changed, WHO and DIDIT must 
also be edited, because they make explicit assump¬ 
tions about the length of the lists they get. 

This is not good programming practice, but fortu¬ 
nately LISTSIZE can always be determined from LIST 
just by counting, if we had a procedure that could 
count the elements in a list. 

The procedure COUNT, which takes a list (or a word) 
as its input, does exactly this. (In Terrapin Logo ver¬ 
sion 2.0, COUNT is defined as a primitive.) 

TO COUNT:0BJ 
IF :0BJ = [] OPO 
OP 1 + COUNT BF:0BJ 
END 

To see what COUNT does, type 

COUNT [LOGO] 

COUNT [LOGO] 

COUNT “LOGO 

Because PICK can use COUNT to determine the list’s 
size, it no longer needs to be told the size, and so 
LISTSIZE can be dropped from the title line. Where 
that information was needed in the body of the old ver¬ 
sion, COUNT :LIST can be substituted. The result is a 
procedure that looks like this. 
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TO PICK :LIST 

OP NTH 1 + RANDOM (COUNT :LIST) :LIST 
END 
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Because PICK now takes only one input — the actual 
list — WHO and DIDIT need to be edited to use PICK 
properly. 


TO WHO TO DIDIT 

OP PICK PEOPLE OP PICK ACTIONS 
END END 


The resulting program not only solves the problem 
raised earlier — namely, that PEOPLE and ACTIONS 
can be edited freely without requiring changes to be 
made in WHO and DIDIT—but it also looks “cleaner.” 


It is a general rule of good programming that by design¬ 
ing the “low level procedures” (such as PICK) properly, 
the higher level procedures (such as WHO) become 
cleaner, better organized, and easier to under¬ 
stand and debug. 

16. As with all procedures, there are lots of possible 
designs. Here is one for VOWEL?. 

TO VOWEL?: LETTER 
IF:LETTER = "A OP "TRUE 
IF:LETTER = "E OP "TRUE 
IF:LETTER = "I OP "TRUE 
IF:LETTER = "0 OP "TRUE 
IF: LETTER = "U OP "TRUE 
OP "FALSE 
END 
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But the logic is that IF the :LETTER is any one of A, E, I, 
O, or U, then OP “TRUE, otherwise OP “FALSE. This 
might be more concisely expressed as 


TO VOWEL?: LETTER 

IF MEMBER? :LETTER [A E I 0 U] OP 'TRUE 
OP "FALSE 
END 


But remember, MEMBER? is a predicate itself. It al¬ 
ready outputs TRUE or FALSE, exactly what we want 
VOWEL? to output. So, VOWEL? can also be written: 


TO VOWEL?: LETTER 
OP MEMBER? :LETTER [A E I 0 U] 
END 


or even 

TO VOWEL?: LETTER 
OP MEMBER? :LETTER "AEIOU 
END 

18. It is tempting to write a YES? procedure modeled 
on VOWEL? like this: 

TO YES? 

OP MEMBER? REQUEST [ [YES] [YUP] [Y] [SURE] 
[YEAH] ] 

END 

but all life is not that simple. What if the person types [I 
SUPPOSE SO] ? The procedure would translate that as 
if it were a clear NO, when it is probably YES, or at least 
ambiguous. Alas, we must work harder. 
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Here is a suggestion. 

TO YES? 

OP YESSUB? REQUEST 
END 

TO YESSUB? RESPONSE 

IF MEMBER? RESPONSE [ [YES] [YUP] [Y] [SURE] 
[YEAH]] OP "TRUE 

IF MEMBER? RESPONSE [ [NO] [NOPE] [N] ] OP 
"FALSE 

PRINT1 [PLEASE ANSWER "YES" OR "NO":] 

OP YES? 

END 

This is recursive in a new way. YES? is not defined in 
terms of itself, nor is YESSUB? — but each is defined 
in terms of the other! Make sure you understand how 
these two procedures work together. 

18. Either of the first two work properly. To see what is 
wrong with the third version, try PLURAL “OX. 

19. It would be convenient to have a procedure that re¬ 
turned the last two letters of a word. Of course, if there 
is only one letter in the word, LASTTWO must output 
the whole thing. 

TO LASTTWO :W0RD 
IF" = BL :W0RD OP :W0RD 
OP WORD LAST BL :W0RD LAST :W0RD 
END 
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Now we can write a rule for handling words that need 
ES endings. Let’s replace 

IF "X = LAST :N0UN OP WORD :N0UN "ES 

with 

IF NEEDS.ES? :N0UN OP WORD :N0UN "ES 

Cheating! NEEDS.ES ? hasn’t been written yet. 

TO NEEDS.ES? :N0UN 
IF (ANY0F"S = LAST: NOUN 
"X = LAST :N0UN 
"Z = LAST :N0UN ) OP "TRUE 
OP ANYOF"CM = LASTTWO :N0UN 
"SH = LASTTWO :N0UN 
END 

Alas, the formatting which makes the design so clear 
on paper is all lost in Logo’s editor ! 

20. IF “Y = LAST :NOUN OP WORD BUTLAST 
:NOUN “IES 

21. Ah, but not if the letter before the Y is a vowel! 

IF "Y = LAST :NOUN OP YPLU :NOUN 

TOYPLU :NOUN 

IF VOWEL? LAST BL :NOUN OP WORD :NOUN "S 
OP WOR D BUTLAST :NOUN "I ES 
END 
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22. The big difference between FIX VERB and 
PLURAL is in their handling of lists. In the case of 
nouns, it was always the LAST element of the list that 
needed to be pluralized, but in the case of the verbs in 
ACTIONS, it is always the FIRST element that needs 
the modification. So the important line to change is the 
one that begins 

IF LIST? 

For FIXVERB, it might look like this: 

IF LIST? VERB OP SE FIXVERB FIRST VERB BF VERB 

PAST and FIXVERB appear to have absolutely iden¬ 
tical logic, but their exceptions are different. This 
brings up an interesting problem. The solution used in 
PLURAL was to create global variables which con¬ 
tained the proper form of exceptional words. What 
happens with verbs like HAVE or GO which have 
different exceptions for present and past forms? 
Although there is always a way to solve the problem 
if you notice it, the use of global variables is prone 
to surprising bugs until you notice the conflict. 

TO PRESENT :SUBJ VERB 
IF "BE = VERB OP EXCEPTION.BE :SUBJ 
IF (ANYOF "I = :SUBJ 

"YOU = :SUBJ 
"WE = :SUBJ 
"THEY = :SUBJ ) OP VERB 
OP FIXVERB VERB 
END 

TYy to write EXCEPTION.BE yourself! 
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2 3. An extra level of analysis is needed in order to de¬ 
termine which class of verbs (which conjugation) is 
involved. 


Here is a simplifying structure for the top level. It uses 
global variables in a risky way, but the structure will be 
fairly clear. 


TO PRESENT :SUJET :VERBE 
MAKE "ROOT BL BL :VERBE; SEPARATE ROOT 
MAKE "END LASTTWO :VERBE; SEPARATE CONJ. 
MARKER 

; AND NOW, HANDLE EACH CASE SEPARATELY 
IF "ER = :END OP ER.PRES :SUJET :R00T 
IF "IR = :END OP IR.PRES :SUJET :R00T 
IF "RE = .END OP RE.PRES :SUJET :R00T 
END 


In the following case, make a further distinction. 

TO IR.PRES :SUJET :R00T 
IF"0 = LAST :R00T OP OIR.PRESENT :R00T 
OPXIR.PRESENT :R00T 
END 


The rest is yours. 


24. The relevant change to make is this 


IF MEMBER? REQUEST ANSWER PR [YUPI] 


25. This version of ADDQUIZ takes a number as input 
and keeps giving problems until that many problems 
have been answered correctly. 
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TO ADDQUIZ:TIMES 
IF :TIMES = OSTOP 

IF ADDQ RANDOM 13 RANDOM 13 ADDQUIZ :TIMES -1 
ELSE ADDQUIZ :TIMES 
END 

TO ADDQ :N1 :N2 
PRINT1 (SE :N1 "+ :N2 
IF (:N1 + :N2) = FIRST RQ PR [YAYI] OP "TRUE 
PR (SE "NOPE, :N1"+ :N2 "= :N1 + :N2 ) 

OP "FALSE 
END 

Notice that the only differences in ADDQ are that it 
outputs TRUE if the answer is correct and FALSE 
otherwise. 


26 . Here is one form. Are there bugs ? Is there a cleaner 
way? 

TO ADDQUIZ :MAX :TIMESRIGHT :TIMESWRONG 
IF :TIMESWRONG = 2 STOP 
IF :TIMESRIGHT = 3 ADDQUIZ :MAX + 10 0 STOP 
IF ADDQ RANDOM :MAX RANDOM :MAX 

THEN ADDQUIZ :MAX :TIMESRIGHT + 1 
:TIMESWRONG STOP 
ELSE ADDQUIZ :MAX :TIMESRIGHT 
:TIMESWRONG STOP 

ADDQUIZ :MAX :TIMESRIGHT :TIMESWRONG + 1 
END 

Start it by typing 
ADDQUIZ43 0 
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27. The logic we are trying to add is this: ADDQ is told 
what the problem is and how many tries the person has 
already made. 

TO ADDQ TRIES :N1 :N2 

If that number (TRIES) is 2, ADDQ should give the cor¬ 
rect answer and output FALSE. 

IF TRIES = 2 PR ( SE :N1"+ :N2 "= :N1 + :N2 ) OP 
"FALSE 

Otherwise, ADDQ should state the problem as before 
and allow the person another try. If the person gets the 
right answer, ADDQ says YAY and outputs TRUE, as it 
did before. 

PRINT1 (SE :N1 "+ :N2"'=') 

IF (:N1 + :N2) = FIRST RQ PR [YAY!] OP "TRUE 

But if the person gets the wrong answer, ADDQ should 
say “try again,” give the same problem as before, and 
know that the person has taken one more try at answer¬ 
ing it. 

PRINT [TRY AGAIN] 

OP ADDQ TRIES + 1 :N1 :N2 

Of course, ADDQUIZ must start ADDQ by telling it 
that no tries have yet been made. 

IF ADDQ 0 RANDOM :MAX RANDOM :MAX etc. 




A-126 


Terrapin Logo Tutorial 


Appendix: Words and Lists 


The completed program might look like this. 

TO ADDQUIZ :MAX TIMESRIGHT TIMESWRONG 
IF TIMESWRONG = 2 STOP 
IF TIMESRIGHT = 3 ADDQUIZ :MAX + 1 0 0 STOP 
IF ADDQ 0 RANDOM :MAX RANDOM :MAX 
ADDQUIZ :MAX :TIMESRIGHT + 1 
TIMESWRONG STOP 
ELSE ADDQUIZ :MAX TIMESRIGHT 
TIMESWRONG +1 STOP 
END 

TO ADDQ TRIES :N1 :N2 

IF TRIES = 2 PR ( SE :N1"+ :N2 "= :N1 + :N2) 
OP "FALSE 

PRINT1 (SE :N1"+ :N2 ) 

IF (;N1 + :N2) = FIRST RQ PR [YAY!]OP "TRUE 
PRINT [TRY AGAIN] 

OP ADDQ TRIES + 1 :N1 : N2 
END 


28 . PICK can select some element from the STATES 
list. Each element of the STATES list contains both a 
question as its FIRST and an answer as its LAST (or 
BUTFIRST). This is just what QA needs. The hitch is 
that if we simply type 

QA FIRST PICK :STATES LAST PICK iSTATES 

Logo will run PICK twice , and each time PICK is run it 
may pick a different element from the list! QA needs to 
take the FIRST mid LAST (or BUTFIRST) of the same 
element. 
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The first thing to resolve is whether we use the LAST 
or BUTFIRST of the element. It makes a big difference, 
since the LAST is a word and the BUTFIRST is a list. 

Since QA compares its :ANSWER with a REQUEST 
(which is always a list), we might as well use BF. One 
way STATESQUIZ might work is this: 

TO STATESQUIZ 

REPEAT5 [MAKE "QLIST PICK :STATES QA FIRST :QLIST 
BF:QLIST] 

END 


An alternative that is neater in a few ways is this: 

TO STATESQUIZ 

REPEAT 5 [STATEQA PICK :STATES] 

END 

TO STATEQA:QLIST 
QA FIRST :QLIST BF:QLIST 
END 

29. The BF of [IOWA [DES MOINES]] is [[DES 
MOINES]] but we want [DES MOINES] to compare to 
the sentence typed to REQUEST. In this case, we 
would have been better off taking the LAST rather 
than the BUTFIRST. How do we r,esolve the problem? 

The real problem is that the database :STATES has 
both words and lists as possible answers. This makes 
it difficult to check for equality. 
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If the answer-part of each element of the: STATES list 
was always a list, we could consistently choose the 
FIRST for the question, and the LAST for the answer. 

So, we make states differently: 

MAKE "STATES [[OHIO [COLUMBUS]] [[NEW YORK] 
[ALBANY]] [GEORGIA [ATLANTA]] [IOWA 
[DES MOINES]]] 


And we redefine STATEQA 

TO STATEQA :QLIST 
QA FIRST :QLIST LAST :QLIST 
END 

30. ’Tis all yours! 

31. The changes would be in the form: 

IF :CHAR = "F RUN.AND.RECORD SE "FD10 * :MULTIPLE 
IF :CHAR = "R RUN.AND.RECORD SE"RT 15 * :MULTIPLE 
IF :CHAR = "L RUN.AND.RECORD SE "LT15 * :MULTIPLE 


There are two subtleties. One is that the command 
lines read: 

IF :CHAR = "F RUN.AND.RECORD SE "FD 10 * :MULTIPLE 
and not (more simply) 

IF :CHAR = "F RUN.AND.RECORD [FD 10 * :MULTIPLE] 
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The reason is that although the second version will 
RUN correctly, the command that will be LPUT on the 
history list will be, literally, [FD 10 * MULTIPLE] 
rather than the desired [FD 30] or whatever it is. 

RUN and REPEAT are the only primitives that are ca¬ 
pable of evaluating what is inside a list. Everything 
else just treats it as text without meaning. 

Also, remember that TOGGLEPEN must be edited to 
record its ups and downs. 

32. Lines like IF :CHAR = “< RCIRCLE :SIZE would 
be needed, but you must provide the mechanism for 
setting :SIZE just as you had for the forward and turn¬ 
ing commands. 

If you allow ARC (first introduced in the section on 
OUTPUT) to take an angle input as well as the two it 
now takes, SEGMENTS and CHORD, the new proce¬ 
dures RCIRCLE and LCIRCLE can then be defined by 
using ARC with angles of 18 and -18 respectively. 

33. The procedure itself is very straightforward. It 
depends on lists of the verbs, nouns, proper names, 
and so forth. 

So far, procedures to output verbs and proper names 
have been created, as has a global variable containing 
adverbs. The following definition of MADLIB further 
assumes procedures NOUNS and ADJECTIVES that 
must be created on the model of ACTIONS and 
PEOPLE. 
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TO MADLIB :TEXT 

OP MAD "V ACTIONS MAD "N NOUNS MAD "PN 
PEOPLE MAD "ADV :ADVERBS 
MAD "ADJ ADJECTIVES :TEXT 
END 

34. With the example that was given, all that is 
needed is to check both the words themselves (i.e., 

PN LOVES PN<comma> BUT PN CAN’T STAND 
PN<period>) and the butlast of the words (i.e., P 
LOVE PN BU P CAN’ STAN PN). All of the PNs will be 
caught this way. The test 

IF BL FIRST CONTEXT = :KEY 

will do that job. If the butlast of the word is KEY, then 
the last will be the punctuation mark. By picking an 
alternate and wording the punctuation mark to the 
end of it, 

WORD PICK :ALT LAST FIRST :CONTEXT 

the original punctuation has been restored. Finally, 
this word must be integrated into the developing 
sentence just as if the punctuation problem had not 
occurred. 

OP SE WORD PICK :ALT LAST FIRST:CONTEXT 
MAD :KEY:ALTBF CONTEXT 

Altogether the new line of the procedure is: 

IF BL FIRST CONTEXT = :KEY 

OP SE WORD PICK :ALT LAST FIRST :C0NTEXT 
MAD :KEY :ALT BF :C0NTEXT 
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There is a problem. What if one of the keywords were 
N, as in problem 33, and one of the words of the sen¬ 
tence were “NO”? Butlast of the word NO would 
falsely match the keyword, and NO would be re¬ 
placed with a noun! 


A more complex and sophisticated procedure could 
be written, but the best solution is to make keywords 
clearly distinct from text. If keywords all began with 
some non-text character, so that they could never be 
generated from a text word (as happened when N was 
generated from NO), the problem would be solved. 


Recommendation: Begin keywords with <period>. 


Thus, madlib sentences would look like this: 


[.PN LOVES .PN, BUT .PN CANT STAND .PN.] 


Note that MAD never tests for the special keyword 
marker. The marker just serves to prevent mishaps. 

Does the order in which the tests are performed mat¬ 
ter? 


TO MAD :KEY :ALT:CONTEXT 
IF :CONTEXT = [] OP [] 

IF (FIRST:CONTEXT) = :KEY OP SE PICK :ALT 

MAD :KEY :ALT BF :CONTEXT 
IF BL FIRST :CONTEXT = :KEY OP SE WORD PICK .ALT 
LAST FIRST :CONTEXT MAD :KEY :ALT BF:CONTEXT 
OP SE FIRST :CONTEXT MAD :KEY :ALT BF :CONTEXT 
END 




A-132 


Terrapin Logo Tutorial 



Appendix: Words and Lists 


35. Let’s title the procedure this way. 

TO MADLIB TEXT :KEYS 

The logic is that if there are no keywords at all to find 
and replace, then the text must be returned as it is. 

IF EMPTY? :KEYS OP TEXT 

If there are keys to replace, then 

1) using the first of them, replace each in¬ 
stance of it in the text with a suitable alterna¬ 
tive (this is accomplished by MAD) and 

2) use that as the text in which to search for 
the remaining keys. This is the purpose of 
MADLIB, itself, and is thus the recursive 
step. 

Worded more like the program, we are to output the 
MADLIB of and a list of the remaining keys. 

Skipping over a detail, the Logo might look something 
like this: 

OP MADLIB ( MAD FIRST :KEYS somethingorother TEXT) 
BF:KEYS 

The “somethingorother” needs some thinking. 

In previous situations, the key words bore no relation 
to the procedures or variables that contained the corre¬ 
sponding lists. This is inconvenient, since there is no 
way to know from looking at the key word, just where 
to find its substitutes. 
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But that can be corrected. Abandon the old design of 
having V refer to a procedure ACTIONS, and ADV to a 
variable ADVERBS. 

From now on, we must be consistent about using 
either procedures or variables. Further, the keyword 
will be the name of the variable or the title of the pro¬ 
cedure. 

Choosing to go with global variables, we can then say 
that if MAD’s KEY is the first of MADUB’s KEYS, 
MAD’s ALT will be the THING of the first of MADLIB’s 
KEYS. MADLIB would then look like this: 

TO MADLIB TEXT :KEYS 
IF EMPTY? :KEYS OP TEXT 
OP MADLIB (MAD FIRST :KEYS THING FIRST :KEYS 
TEXT) BF :KEYS 
END 

If we chose to use procedures titled by KEY, then 
MAD’s ALT would be the result of RUNning the first of 
MADUB’s KEYS. 

TO MADLIB TEXT :KEYS 
IF EMPTY? :KEYS OP TEXT 
OP MADLIB (MAD FIRST :KEYS RUN (SE FIRST :KEYS) 
TEXT) BF :KEYS 
END 

The most important element here became the willing¬ 
ness to abandon some old designs and rethink the rela¬ 
tionship between parts of the problem. 
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36. GREET needs to look at what OUTPUT.NAME 
gives it and determine, first, if the result is a name or a 
response. Here is a possible method: 


TO RESPOND :NAME.OR.PHRASE 
IF WORD? :NAME.OR.PHRASE GREET 
:NAME.OR.PHRASE STOP 
PRINT :NAME.OR.PHRASE 
END 


TO FRIENDLY 

PR [WHAT'S YOUR NAME?] 
RESPOND OUTPUT.NAME REQUEST 
END 


37. Just before the neutral answer (OP [I WAS JUST 
CURIOUS]) the procedure must look for negatives, 
and should respond appropriately if it finds any. 

IF FIND? [WON'T NONE DON'T NOT NO] :SENT OP 
[SORRY I ASKED] 


FIND? is simply a fancy MEMBER? 

TO FIND? :ITEMS :LIST 
IF EMPTY? : ITEMS OP "FALSE 
IF MEMBER? FIRST :ITEMS :LIST OP "TRUE 
OP FIND? BF:ITEMS :LIST 
END 


38. Any of a number of strategies will work. Be of 
good cheer! The task of deciding which approach to 
take should be simple for anyone who has gotten this 


far. 
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39. If punctuation only comes at the ends of words, 
removing it is quite simple. 


TO NOPUNC :W0RD 

IF MEMBER? LAST :W0RD [",.! ?] OP BL :W0RD 
OP :W0RD 
END 


A more general solution, more powerful but slower, is: 

TO NOPUNC :W0RD 
IF EMPTY? :W0RD OP " 

IF MEMBER? FIRST :W0RD [",.! ?] OP NOPUNC BF 
:W0RD 

OP WORD FIRST :W0RD NOPUNC BF :W0RD 
END 

In either case, change FIRST :S to NOPUNC FIRST :S 
throughout the CHECK procedure. 

41. Sorry. From here on in, you are on your own! 
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" W-33 
: W-61 

ALLOF, W-70, W-112 
ANYOF, W-70, W-112 
ASCII, W-59, A-115 

BUTFIRST (BF), W-43, W-92, 
A-113 

BUTLAST (BL), W-43, W-92 

CHAR, W-59, A-115 
CLEARTEXT, W-32 
Comments, W-21, A-103 
COUNT, A-118 

ELSE, W-70 to W-71 
Empty list, W-59 to W-60 
Empty word, W-59 
EMPTY?, W-23 
Error messages, W-63 

FALSE, W-70 
FIRST, W-43, W-92 
FPUT, W-29, W-92 

Global variables, W-12 to 
W-17 

History lists, W-95 to W-99 
IF, W-70 

IFFALSE (IFF), W-89, W-90 
IFTRUE (IFT), W-89, W-90 


Intelligent language inter¬ 
preter, W-106 to W-114 
ITEM, W-48 

LAST, W-43, W-92 
Levels of execution, W-63 
LIST, W-52, W-90 
LIST?, W-54, W-76, W-89 
Lists, W-59 

Local variables, W-12 to W-17 
LPUT, W-29, W-92, W-95 

Mad-libs, W-100 to W-105 
MAKE, W-9 
MEMBER?, W-23, W-73 

NOT, W-70, A-106, A-112 
NUMBER?, W-17, A-106 

Object, W-33 to W-36, W-86 
OUTPUT (OP), W-37, W-43, 
W-65 

Parentheses, W-55, W-69, 
W-87 to W-88 
Predicates, W-72 to W-74 
PRINT (PR), W-12, W-55, 
W-88 

PRINTl, W-55, W-88, A-107 
Projects: history lists, W-99 
Projects: ITEM, W-51 
Projects: language under¬ 
standing, W-115 
Projects: mad-libs, W-105 
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Projects: MAKE, W-17 
Projects: PLURAL, W-79 
Projects: predicates, W-74 
Projects: RC, W-8, W-22 
Projects: recursion, W-51, 
A-79 

Projects: REQUEST, W-84 

Quiz programs, W-81 to W-85 

RC? W-18, W-72 
READCHARACTER (RC), 
W-8, W-18, A-105 
Recursion, W-48, W-100 to 
W-105 

Remarks, A-103 
REQUEST (RQ), W-26, W-81 
to W-84 

RESULT:, W-60 

RUN, W-94 to W-99, A-96 

Self-starting files, A-104 
SENTENCE (SE), W-25, 

W-43, W-86 
SETDISK, A-103 
Single quote, W-57 
STARTUP variable, A-104 
STOP, W-6 

Summary: words and lists 
primitives, W-52 


THEN, W-5, W-71 
THING, W-78 
TOPLEVEL, W-4, W-6 
TRUE, W-70 
TURTLESTATE, A-112 

Value, W-38 

Variables, W-12 to W-17, W-60 

Wild card, W-109 
WORD, W-43, W-46 
WORD?, W-54, W-72, W-89 
Words, W-56 

Xqpsnpfltk, W-108 


Templates, W-lll to W-116 
TEST, W-89 

Testing: IF-THEN-ELSE, W-70 
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TM in the Index listing refers to the Terrapin Logo Technical Manual. 


" G-30, M-20, C-6 
: G-50, M-20, C-6 
+ G-5,C-1,TM: Chapter 3 
— C-l, TM: Chapter 3 
* G-5, C-l, TM: Chapter 3 
/ G-5, C-l, TM: Chapter 3 
0 C-2 

<> B-13, B-16 
> G-67.TM: Chapter 3 
< G-67.TM: Chapter 3 
= G-66 to G-67,TM: Chapter 3 
? B-12, G-87 
[] B-9, G-26 
; A-103 

.ASPECT, TM: Chapter 3 
.BPT, TM: Chapter 3 
.CALL, TM: Chapter 3 
.CONTENTS, TM: Chapter 3 
.DEPOSIT, TM: Chapter 3 
.EXAMINE, TM: Chapter 3 
.GCOLL, TM: Chapter 3 
.NODES, TM: Chapter 3 

A 

Abbreviations, G-2, G-24 
Abelson, Harold, B-4, B-7 
ABS, C-20 to C-21 
Absolute value, C-20 to C-21 
ADDRESSES, TM: Chapter 6 
Addition, G-5, C-l 
ALLOF, TM: Chapter 3 


AMODES, TM: Chapter 6 
ANIMAL program, A-30 
ANIMAL.INSPECTOR 
program, A-31 
ANYOF, TM: Chapter 3 
Arcs, G57 to G-58, A21, 

A-99 to A-102 
Arithmetic, G-5, G-47 
to G-48, C-l 

Arrow keys, B-14, G-16, 

M-13, A-38 
ASCII, TM: Chapter 3 
Assembler/Logo interfacing, 
TM: Chapter 6 

ASSEMBLER, TM: Chapter 6 
ATAN, TM: Chapter 3 

B 

BACK, G-2, TM: Chapter 3 
BACKGROUND, G-8, G-10, 
TM: Chapter 2, 3 

BF, M-33 to M-35, 

TM: Chapter 3 

BG, G-8, G-10,TM: Chapter 2, 3 
Binary tree, G-73, A-85 

BK, G-2, TM: Chapter 3 

BL, TM: Chapter 3 
Blank disk, preparing 

for use, B-2 

Brackets <>, B-13, B-16 
Bugs, G-20, A-l 
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BUTFIRST, M-33 to M-35, 

TM: Chapter 3 
BUTLAST, TM: Chapter 3 

c 

CATALOG, G-29, G-31 to G-32, 
M-16, TM: Chapter 2,3 
Changing inputs, G-62 
CHAR, TM: Chapter 3,7 
Circles, G-57 to G-58 
Clearing the workspace, 

G-32 to G-34 

CLEARINPUT, TM: Chapter 3 
CLEARSCREEN, C-26, G-27, 
TM: Chapter 3 
CLEARTEXT, TM: Chapter 3 
CLOSE, A-24 to A-26 
CO, G-81, TM: Chapter 3 
Color, G-8 to G-10, G-75 to G-78 
Conunents, A-103 
Computation, B-8, C-l 
Conditional, G-66 to G-69 
CONTINUE, G-81,. 

TM: Chapter 3 
Control commands, See 

<CTRL>, TM: Chapter 2, 7 
Copying a procedure, G-46 
COS, C-4, C-6, C-15, C-18, 

TM: Chapter 3 
Cosine, C-15, C-18 
CS, G-26, G-27, TM: Chapter 3 
<CTRL> key, B-13 
<CTRL> A, G-40 to G-41, A-38 
<CTRL> B, A-39 
<CTRL> C, G-14, G-18, A-41 


<CTRL> D, G-40 to G-41, A-40 
<CTRL> E, G-40 to G-41, A-39 
<CTRL> F, G-7, A-39 
<CTRL> G, B-13, B-15, G-14, 
G-19, G-62, A-41 
<CTRL> K, G-40 to G-41, A-40 
<CTRL> L, A-39 
<CTRL> N, G-40 to G-41, A-38 
<CTRL> O, G-40 to G-41, A-39 
<CTRL> P, G-5, G-40 to G-41, 
M-3, A-38 
<CTRL> S, G-7 
<CTRL> <SHIFT> M, B-9, 
G-26 

<CTRL> <SHIFT> P, B-9, 
G-26 

<CTRL> T, G-7 
<CTRL> W, G-43 
<CTRL> Y, B-13, M-2 
<CTRL> Z, G-81 
Cursor, B-12, G-18, A-23 
to A-24, A-38 
CURSOR.H, A-23 
CURSOR.HV, A-23 
CURSORPOS, A-23 
CURSOR.V, A-23 
Curves, G-57 to G-58 

D 

D.G-87 

Debugging, G-20, G-79 
to G-81, G-83 
DEFINE, TM: Chapter 3 
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<DEL>, B-14, G-16 to G-17, 
M-13, A-40 

diSessa, Andrea, B-4, B-7 
Disk, backup of utilities, B-2 
Disk preparation, B-2 
Division, G-5, C-l 
Documentation manual, B-l 
Documentation, 

procedure, A-103 
DOS, TM: Chapter 3 
Dots, G-50, M-20, C-6 
DPRINT, A-24 to A-26 
DRAW, G-l, G-4, G-7, C-15, C-17, 
TM: Chapter 3 

Draw mode, G-l, TM: Chapter 2 
Driving the turtle, G-2 
DROVE, A-97 
Duration, M-6 
Duration, inputting, M-20 
to M-25 

DYNATRACK, A-32 

E 

ED, TM: Chapter 3 
EDIT, TM: Chapter 3 
Edit mode, G-14 to G-19, M-18 
to M-19, A-38 to A-41 
Editing, M-12 

Editing commands, summary, 
G-41, A-38 to A-41 
Editor, G-40 to G-41 
Elephant mascot, B-5, A-92 
Ellipse, C-15, C-21 to C-22 
ELSE, TM: Chapter 3 
Empty list, M-24 


END, G-14, G-22, M-18, C-8, 

TM: Chapter 3 

ER, G-32 to G-34, TM: Chapter 3 
ERASE, G-32 to G-34, 

TM: Chapter 3 
ERASE ALL, G-32 to G-33, 

TM: Chapter 3 

ERASE NAMES, TM: Chapter 3 
ERASE PROCEDURES, 

TM: Chapter 3 

ERASEFILE, TM: Chapter 2,3 
ERASEPICT, G-35 to G-36, 

TM: Chapter 2,3 
Erasing, G-U 

Erasing pictures, G-35 to G-36 
ERNAME, TM: Chapter 3 
Error messages, B-13, A-l 
Errors, typing, B-14 
<ESC>, B-14 

Executing a procedure, G-20 
EXPONENT, C-ll to C-14 
Exponentiation, C-ll to C-14 

F 

F, G-87 

FALSE, G-66 to G-69 
FD, G-2, G-3, TM: Chapter 3 
FID, A-29, TM: Chapter 4 
Files, G-29, G-33, M-l 
FIRST, M-33 to M-35, 

TM: Chapter 3 
FLASHING, A-23 to A-24 
Floor turtle, B-7, G-90, 

A-35 to A-37 


Terrapin Logo Tutorial 


1-3 





Index 


FORWARD, G-2,G-3, 

TM: Chapter 3 
FPUT.TM: Chapter 3 
FRERE, M-U to M-15 
Functions, C-4 to C-5 
FULLSCREEN, G-7, 

TM: Chapter 2,3 
Fundamentals of Logo 
music, M-l 

G 

Global variables,, M-20 
to M-21, C-6 to C-7 
GO, TM: Chapter 3 
GOODBYE, G-32, G-34, 

TM: Chapter 3 
Graphics, B-6, G-l, A-42 
Graphics commands, 
summary, G-5 
Graphics mode, G-l 
Graphing functions, C-15 
to C-22 

H 

Harmony, M-36 
Heading, G-44 
HEADING, G-83 to G-85, 

TM: Chapter 3 

HIDETURTLE, G-37, C-15, C-17, 
TM: Chapter 3 
Hierarchy of operations, 

C-2 to C-3 

HOME, G-26, G-27, C-15, C-17, 
TM: Chapter 3 


Horn, B-7 

HT, G-37, C-15, C-17, 

TM: Chapter 3 

I 

IF, G-66 to G-69, TM: Chapter 3 
IFF, TM: Chapter 3 
IFFALSE, TM: Chapter 3 
IFT, TM: Chapter 3 
IFTRUE, TM: Chapter 3 
IMMEDIATE mode, B-6, 

G-15 to G-16 
Initializing a disk, B-2 
Input, G-48, G-76, M-20 
Input, changing, G-62, M-32 
Input element of list, 

M-26 to M-29 
Input, list as variable, 

M-20 to M-25 
Input, procedure name, 

M-24 to M-25 
Inputs, negative, G-81 
Inputs, variable, M-20 
INSPI, A-33, TM: Chapter 4 
INSTANT, B-6, G-87 to G-90 
INTEGER, C-4 to C-5, 

TM: Chapter 3 
Integer, C-l 

Integer operators, C-4 to C-5 
Interpretive language, B-6 
INVERSE, A-23 to A-24, 

TM: Chapter 3 
Invisible turtle, G-37 


1-4 


Terrapin Logo Tutorial 


K 

Keyboard, B-9 
Keys, special, B-9 

L 

Language card, B-l 

Language Disk, B-l 

LARC, A-21 

LAST, TM: Chapter 3 

LCIRCLE, A-22 

LEFT, G-2, G-4, TMi Chapter 3 

Light, B-7 

List as a variable, M-20 to M-25 
List, elements as inputs, 

M-26 to M-29 
List, empty, M-24 
LIST,TM: Chapter 3 
LIST?, TM: Chapter 3 
Listing a procedure, G-43 
Listing: Summary of 
commands, G-44 
Local variables, M-22 to M-23, 
C-6 to C-7 

Logo for the Apple II, B-4 
LPUT, TM: Chapter 3 
LT, G-2, G-4, TM: Chapter 3 

M 

Magic number, G-46 
Major key, M-ll to M-15 
MAKE, M-20 to M-21, 

TM: Chapter 3 
Manual, Documentation, B-l 
Manual, Technical, B-l, B-4 


Manual, Tutorial, B-l, B-4 
Mascots, B-5, A-92 to A-98 
MEMBER?, TM: Chapter 3 
Messages, error, A-l 
Mindstorms, Seymour 
Papert, B-4 
Minor to major key, 

M-ll to M-15 

Mode, DRAW, G-l, G-4, C-15, 
C-17, TM: Chapter 2,3 
Mode, EDIT, G-14 to G-19, M-18 
to M-19, A-38 to A-41 
Mode, IMMEDIATE, B-6, 

G-15 to G-16 

Mode, NODRAW, G-7, G-8, 

TM: Chapter 2, 3 
Modules, music, M-7 to M-8, 
M-17 

Monitor, M-2 to M-3 
Multiplication, G-5, C-l 
Music, B-7, M-l 

Music, advanced projects, M-33 
Music modules, M-7 to 
M-8, M-17 

Music notation, M-9 
Music procedures on Utilities 
Disk, M-33 to M-35 

N 

N, G-87 

Naming, G-14, G-30, G-50, 

G-52, M-18, C-6 
Negative inputs, G-81 
ND, G-7, G-8, TM: Chapter 2,3 
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NODRAW, G-7, G-8, 

TM: Chapter 2, 3 
NORMAL, A-23 to A-24, 

TM: Chapter 3 
NOT, TM: Chapter 3 
Notation, standard music, M-9 
NOTRACE, G-69, G-83, A-102, 
TM: Chapter 3 
NOWRAP, G-62, G-64, 

TM: Chapter 3 
NUMBER?, TM: Chapter 3 
Numeric operations, C-l to C-3 

O 

OP, C-9 to C-14, TM: Chapter 3 
OPCODES, TM: Chapter 6 
OPEN, A-24 to A-26 
Operations, C-l to C-3 
Operators, C-l, C-4 to C-5 
OPEN.FOR.APPEND, 

A-25 to A-26 

OUTDEV, TM: Chapter 2,3,6 
Output, G-76, C-4 to C-6 
OUTPUT, C-9 to C-14, 

TM: Chapter 3 
Overview, B-5 

P 

P.G-87 

Package, Terrapin Logo, B-l 
PADDLE, TM: Chapter 3 
PADDLEBUTTON, 

TM: Chapter 3 
Parabola, C-15, C-19 to C-21 


Papert, Seymour, B-4 
Parentheses, B-13, B-16 
PAUSE, G-81, TM: Chapter 3 

PC, G-8, G-12, TM: Chapter 2,3 
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Preface 

This is a reference manual for an implementation of the Logo system for 
the Apple II computer. The configuration required to run Logo on the 
Apple is an Apple II computer with one “floppy disk” drive and 48K bytes 
of memory, and with an additional 16K memory extension. The system 
includes the Logo language together with fully integrated interactive 
“turtle" graphics, screen editor, and disk file system. 1 The present manual 
assumes that the reader is generally familiar with Logo and Logo 
programming, and provides technical information about the 
implementation of Logo for the Apple II, together with the list of primitive 
commands included in the system. 

This implementation of Logo was carried out by the Logo Group at the 
Massachusetts Institute of Technology, in a project that was partially 
supported by grants from the National Science Foundation. The 
interpreter was implemented by Stephen Hain and Leigh Klotz. The text 
editor, graphics, and file systems were implemented by Patrick 
Sobalvarro. This work is based on previous Logo systems developed by 
members of the MIT Logo Group with support from the National Science 
Foundation, and on a specification of the Logo interpreter developed at 
MIT with support from Texas Instruments, Inc. The Logo for the Apple II 
implementation project is under the supervision of Professor Harold 
Abelson. 


In addition, the present implementation is designed so that people familiar with 
programming in assembly language on the Apple can modify and extend the Logo system’s 
capabilities, interface it to new peripherals, and so on. To aid in this process, the Logo disk 
includes a Logo program written by Leigh Klotz that serves as a 6502 assembler. 
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Chapter 1 

Preparing to Use Logo 

This chapter discusses the hardware configuration required to run 
Logo and points out some uses of the Apple keyboard that are 
idiosyncratic to the Logo system. It also describes how to load and start 
Logo on the Apple. 


1.1. Configuration 

This version of Logo requires an Apple II or Apple II Plus computer, 
together with a “floppy disk” drive, 48K of memory, and an additional 16K 
memory extension. 1 The system includes two DOS 3.3 diskettes. One is 
the Logo Language disk, used for starting Logo. The other is the Logo 
Utilities diskette, containing the Logo programs described on page 43. 

In addition to the Language diskette and the Utilities diskette, you will 
need diskettes for saving programs that you write. The procedure for 
creating Logo file diskettes is explained in section 2.5.3. 


1.2. The Keyboard 

There are a few differences between the way that the Apple keyboard is 
used in Logo, as opposed to other languages such as BASIC and Pascal. 
These are explained in the paragraphs below. 

The shift key 

Logo, like most Apple II systems, uses only uppercase letters, so the 
shift key is not used for typing capital letters. The shift key is used, 
however, when a given key contains two different symbols. For instance, 


Vwo popular memory extensions that can be used for Logo are the "Language Card" 
distributed by Apple Computer, Inc. and the RAMCard distributed by Microsoft Consumer 
Products. 
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the character “(” is typed as shift-9. 


Brackets 

Logo uses the open and close bracket characters “[” and These 
are not marked on any key on the Apple keyboard. They are typed (when 
using Logo) as shift-N and shift-M, respectively. Included with your Logo 
package is a set of transparent stickers with brackets and other special 
characters on them. If you haven’t already done so, you should affix these 
stickers to your keyboard as indicated in the instructions attached to the 
stickers. 

The ctrl key 

The key on the lower left of the keyboard marked ctrl (abbreviation for 
“control”) is used to input so-called "control characters”. Ctrl is used 
like a shift key. For example, to type “control G” hold down the key 
marked ctrl and press the “G” key (rather than trying to press both CTRL 
and “G” simultaneously). Throughout this manual, we specify control 
symbols by the prefix “ctrl”, as in "ctrl-G”. 


The arrow keys 

On the right hand side of the Apple keyboard there are two keys marked 
with left and right-arrows. These are used in editing, to move the cursor to 
the left and right. 


The esc key 

The key marked esc (abbreviation for “escape”) located at the upper 
left of the keyboard is also used in Logo editing. When pressed, it deletes 
the previous character that was typed. You might want to write the word 
"DELETE" on the esc key. 

The repeat key 

If you type a character and then hold down the key marked repeat, the 
keyboard will repeatedly transmit the character for as long as repeat is 
held down, repeat is occasionally useful in editing, in combination with 



Preparing to Use Logo 


5 


the arrow keys. 

The reset key 

When using Logo, Dq not press the reset kev. ever! The Apple reset 
mechanism unfortunately has been designed so as to be incompatible 
with the use of complex interactive programming languages like Logo, 
and pressing reset will abort operation of the Logo system. Over the 
years, Apple users have come up with ingenious methods for dealing with 
the frustrating problem that the reset key is often hit by mistake, even by 
experienced typists. These solutions range from prying off the key-top to 
pasting cardboard over the key to buying or constructing plastic shields to 
put over the key. The newer model Apples also have a switch that 
disables the reset key and forces the user to type ctrl-reset in order to 
obtain the original reset function. 

Whatever solution you choose, beware that pressing reset while using 
Logo will cause you to lose all your work and necessitate reloading the 
system following the procedure given in section 1.3. 


1.3. Loading and Starting Logo 

The method for starting Logo differs, depending on whether the Apple 
computer you are using has “Autostart ROM” (for example, as is standard 
on the Apple II Plus) or does not (for example, an unmodified Apple II). 


1.3.1. On Apples with Autostart ROM 

• With the computer turned off, load the Logo diskette into the 
disk drive and turn the power on. 

• A “]” character should appear, followed by the message 

Loading, please wait... 

After about 30 seconds, Logo should start and a welcome 
message: 
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The Terrapin Logo Language 

(C) 1981 MIT 

(C) 1982 Terrapin, Inc. 

Welcome to Logo 

should appear on the screen, followed by a line beginning 
with a question mark indicating that Logo is ready to accept 
commands. 

• Remove the Logo disk from the drive and put it in a safe place. 


1.3.2. On Apples without Autostart ROM 

• Place the Logo Language diskette in the disk drive and turn 
on the power. 

• Type 6 ctrl-P and press return. 


1.4. Bugs in the Logo System 

Logo is, to our knowledge, the most complex and extensive program 
written for the Apple II, and Version 1.1 still contains a few very obscure 
bugs that may cause the system to crash. The clearest symptom of a bug 
is when the computer stops executing Logo and instead returns to the 
Apple monitor with the message 

CONGRATULATIONS! YOU FOUND A BUG! 

TYPE 300.311 <RETURN> AND WRITE DOWN 

THE RESULT. THEN TYPE CTRL-Y <RETURN>. 

If you wish to report the bug, write down the indicated information 
together with what you were doing in Logo at the time. 

In most cases, operation of the Logo system can be successfully 
continued by using the Apple monitor to restart Logo: type ctrl-Y and 
return. 2 But even if this works, you should not assume that all is well. 


This monitor command restarts Logo at the “warm boot” address, 
listed with BPT on page 40. 


See the addresses 
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The safest thing to do is to immediately attempt to save your workspace in 
some temporary file; then reload Logo from disk and read your 
procedures back in. For very serious bugs, the ctrl-Y method may not 
work, in which case, the only safe recourse is to restart Logo using the 
procedure given in 1.3. 
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Chapter 2 

Use of the Logo System 

The Logo system includes a full interpreter for the Logo language, a 
complete text editor for editing procedure definitions, and an integrated 
“turtle graphics” system. This chapter provides notes on how these 
different functions interact. 


2.1. Modes of Using the Screen 

The Logo system uses the display screen in three different ways, or 
“modes." 


2.1.1. Nodraw Mode 

This is the mode in which the system starts. Logo prompts the user for 
a command with a question mark, followed by a blinking square called the 
“cursor.” You may type in command lines, terminated with return. Logo 
executes the line and prints a response, if appropriate. 

Whenever the cursor is visible and blinking, Logo is waiting for you to 
type something, and will do nothing else until you do. 

The system includes a flexible line editor that allows you to correct any 
typing errors in a command line which you have typed in DRAW or 
NODRAW mode. The available editing operations are the ones described 
on page 14 corresponding to the keys: esc, arrow keys, Ctrl- A', ctrl-D, 
ctrl-E, ctrl-G, ctrl-K, ctrl-P. 


2.1.2. Edit Mode 

Executing the commands TO or EDIT places Logo in edit mode. For 
example, if you enter Logo and type 

TO POLY :SIDE :ANGLE 

followed by return, the system will enter the screen editor with the typed 
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line of text on the screen. Logo indicates that it is in EDIT mode by 
printing "EDIT: Ctrl-C to define, ctrl-G to abort" in reverse-color letters at 
the bottom of the screen. 

At this point you can use all of the editing operations described on page 
14 to create and/or edit the text for the procedure. Typing ctrl-C will exit 
the editor, cause the procedure to be defined according to the text you 
have typed, and enter nodraw mode. Typing ctrl-G aborts the edit. Logo 
will return to nodraw mode without any procedures being defined. If you 
begin editing a procedure, and decide that you don’t want to change it 
after all (or would like to start over), type ctrl-G. The procedure you were 
editing will not be changed. 

In this mode, RETURN is just another character which causes the 
cursor to move to the next line. In EDIT mode, ctrl-C causes Logo to 
evaluate the contents of the edit buffer just as RETURN in DRAW and 
NODRAW modes causes Logo to evaluate the line just typed. See section 
2 . 2 . 

To edit the most recently defined procedure, type just EDIT (or its 
abbreviation, ED). 1 


2.1.3. Draw Mode 

In draw mode, you use the turtle for drawing on the screen. If you 
attempt to execute any turtle command while in nodraw mode, the system 
will enter draw mode before executing the command. The NODRAW 
command (abbreviated ND) exits draw mode and enters nodraw mode.. 
Actually, there are different types of draw mode. 


1 1n DRAW mode, this edits the current definition of the procedure most recently defined or 
PO'd. In NODRAW mode, however, typing EDIT with no inputs returns to EDIT mode with the 
contents of the edit buffer intact. For example, after a READ or SAVE, everything read or 
saved will be in the edit buffer. If you had aborted the definition of a procedure with ctrl-G, 
the edit buffer’s contents at the time you typed ctrl-G will still be in the edit buffer; you can 
retrieve it by typing EDIT not followed by a procedure name. Typing EDIT followed by the 
procedure name would edit the procedure as it was last defined. This is all very complicated, 
but is entirely intuitive. 
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Splitscreen mode is the normal way in which draw mode is used. Four 
lines at the bottom of the screen are reserved for text, and the rest of the 
screen shows the field in which the turtle moves. The turtle field actually 
extends to the bottom of the screen and so is partially masked by the four- 
line text region. In fullscreen mode the text region disappears and you 
can see the entire turtle field. You can still type commands, but they will 
not be visible. If the system needs to type an error message, it will first 
enter splitscreen mode so that the message will be visible. 

You can use the characters ctrl-F and ctrl-S to switch back and forth 
between splitscreen and fullscreen mode. Pressing ctrl-F while in 
splitscreen mode will enter fullscreen mode. Pressing ctrl-S will restore 
splitscreen mode. It is also sometimes convenient to be able to switch 
back and forth under program control. The commands SPLITSCREEN 
and FULLSCREEN are provided for this purpose. 

In draw mode, Logo displays just four lines of text. This is frequently an 
inconvenience, since error messages are sometimes longer than four 
lines. If you type ctrl-T while in graphics mode, the turtle picture will 
disappear and you can use the entire screen for text, just as in nodraw 
mode. The difference is that you are actually still in draw mode: turtle 
commands can be executed, although you will not see the picture being 
drawn. The ctrl-T command is especially useful when an error message 
in DRAW mode is more than four lines long. ctrl-T is equivalent to the 
TEXTSCREEN primitive. The only way to make the graphics screen visible 
after using ctrl-T is to type ctrl-F to return to fullscreen mode, or ctrl-S 
to go back to splitscreen mode. 

TEXTSCREEN is different from NODRAW. NODRAW clears the text 
screen, clears the graphics screen, and resets all the graphics parameters 
(pencolor, turtle visibility, pen state, background color, and wrapping 
mode). 

Here is a list of control characters not related to editing functions. All 
are available in draw mode and nodraw mode. Some exist in edit mode, 
also, and are specially indicated. 
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Non-editing Control Characters 


ctrl-F 

ctrl-G 

CTRL-S 

CTRL-T 

CTRL-W 


CTRL-Z 


CTRL-SHIFT-M 

CTRL-SHIFT-P 


In graphics mode, gives full graphics screen. 

In edit mode, exits the editor without processing the 
edited text. In draw or nodraw mode, stops execution 
and returns control to toplevel. 

In graphics mode, gives mixed text/graphics screen. 

In graphics mode, gives full text screen. 

Stops program execution. Repeatedly typing ctrl-W 
will cause Logo to stop after printing the next line (or 
the next list element if lists are being printed). Typing 
any character other than ctrl-W or ctrl-G will resume 
normal processing. Try ctrl-W in conjunction with 
the repeat key to obtain "slow motion" effects. See 
TRACE (page 39). 

Causes Logo to pause. You may type anything and 
Logo will execute it as if it were a line of the current 
procedure. Type CO or CONTINUE to continue. 

Restores output to the screen. See OUTDEV, page 36. 

This generates an underscore character. It is a 
regular printing character, available all three modes. 


2.2. Editing 

The Logo system contains a fully-integrated screen editor, arid a 
compatible line editor. The screen editor is used for defining Logo 
procedures in EDIT mode, and the line editor is used for typing Logo 
commands to be executed in DRAW and NODRAW modes. 
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2.2.1. Line Editor 

While you are typing a line of characters to Logo, you can ignore the 
line editor until you need it. If you mistype a character, you can rub it out 
with the escape key. If you forget to put a word at the beginning of the 
line, you place the cursor there with ctrl-A and type. The characters will 
push the rest of the line to the right; nothing will be lost or overwritten. If 
you want to insert characters anywhere in the line, simply move the cursor 
there with the arrow keys, and type what you want. To go to the end of the 
line, type ctrl-E. To delete the character at the cursor, use ctrl-D. 

To end the line and have Logo act upon it, type return. It is not 
necessary for the cursor to be at the end of the line; all characters you see 
on the line will be read by Logo. To delete all characters from the cursor 
to the end of the line, use ctrl-K. 

Lines typed to Logo may wrap around to the next screen line. The 
editing commands will still work on them exactly as if the line did not 
spread over more than forty characters. 

Logo remembers the most recently typed line in both draw and nodraw 
modes so that you can insert it into the current line by typing ctrl- 
P. Unfortunately, in the current implementation, RUN, REPEAT, DEFINE, 
and all filing commands, such as SAVE, cause Logo to forget the last line 
typed. 


2.2.2. Screen Editor 

For defining procedures, Logo has a screen editor which you enter by 
typing EDIT, ED or TO, followed by the name of the procedure you wish to 
define. 

Once Logo is in “edit mode” the characters you type will appear on the 
screen. Pressing return will cause the cursor to move down to the next 
line (If the cursor was not at the end of the line, it will split the current line 
into two lines.) It will not cause Logo to execute the line. 

Various other commands are available for editing the line on which the 
cursor appears, and moving to other lines. To move to the Next line, type 
ctrl-N. To move to the Previous line, type ctrl-P. 
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Lines may be of any length, as long as they fit in the edit buffer. Lines 
which are longer than 40 characters “wrap around” the screen. You can 
tell they are continued lines because an exclamation point ("!”) is shown 
in the last screen column. This mark is not a part of the procedure being 
typed, and serves only as a reminder that the line does not actually end at 
that point. 2 

Although Logo procedures are seldom more than a few lines long, the 
text you may edit is not limited to one screen page. If the text you are 
typing begins to overflow the current page, the system will automatically 
shift the display so that the current line is in the middle of the screen. If 
you type ctrl-P or ctrl-N and move to either the top or bottom edge of 
the screen, the next page will appear. The ctrl-F key inside edit mode 
moves immediately to the next page of text. To move back to the previous 
page, type ctrl-B. If you are on the first page, ctrl-B will move to the top 
of it; similarly, on the last page, ctrl-F will move to the end. If the text you 
are editing is more than one page long, you can use the CTRL-L command 
to center the current line on the screen. 

To exit the editor and have the procedure you typed be defined, type 
ctrl-C. To exit without having the procedure defined, type ctrl-G. After 
typing ctrl-G, you can return to the editor with ED or EDIT, and have all 
the text still there. 3 

The text you type in the editor doesn't have to be a procedure. It can be 
any Logo commands which are not graphics or file-system commands. 
See Section 7.1 to find out how to use Logo for editing text, saving it on 
disk, and printing it. 

Here is a summary of the editing commands available: 


p 

There is a slight difference here between edit mode and draw or nodraw mode; only edit 
mode displays the exclamation marks. 

3 

Providing you didn’t use graphics or filing in the meantime 
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Keyboard Editing Commands 


ESC 

arrow keys 
ctrl-A 


ctrl-B 


CTRL-C 

ctrl-D 

ctrl-E 

ctrl-F 

ctrl-G 


ctrl-K 

ctrl-L 

CTRL-N 

CTRL-0 


Rubs out the character immediately to the left of the 
cursor and moves the cursor one space to the left. 

Moves the cursor one character to the left (or right), 
without rubbing out any character. 

Moves the cursor to the beginning of the current line. 
ctrl-A was chosen for this command because it lies at 
the beginning of a row of the keyboard, and is the first 
letter in the alphabet. 

When editing more than one screenful of text, moves 
the cursor one screenful of text backwards , or to the 
beginning of the buffer if not that much text precedes 
the cursor. 

Exits the editor. Processes the edited text. 

Deletes the character at the current cursor position, 
that is, the character over which the cursor is flashing. 

Moves the cursor to the end of the current line. 

When editing more than one screenful of text, moves 
the cursor one screenful of text forward , or to the end 
of the buffer if not that much text follows the cursor. 

In edit mode, exits the editor without processing the 
edited text. In all modes, stops execution and returns 
control to toplevel. 

Deletes all characters on the current line to the right of 
the cursor. This is known as killing a line of text. 

In edit mode, scrolls the text so that the line containing 
the cursor is at the center of the screen. 

Moves the cursor down to the next line. 

Opens a new line at the cursor position. That is, ctrl- 
O is equivalent to typing return and then ctrl-P. It is 
most useful for adding new lines in the middle of 
procedures. 
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ctrl-P In edit mode, moves the cursor to the previous line. In 

draw or nodraw mode, retrieves previous input line so 
that it can be edited and/or re-executed. 4 


2.3. Using Apple Peripherals 

Logo’s ordinary input and output operations deal with the Apple 
keyboard, the screen, and one disk drive. There are also commands for 
reading input from up to four game paddles that can be attached to the 
Apple. (See the PADDLE and PADDLEBUTTON primitives.) In addition, 
Logo provides the OUTDEV primitive for accessing output devices other 
than the screen. This command takes one input that specifies a slot on 
the Apple board at which a peripheral interface card should be attached. 5 

The OUTDEV command causes any subsequent output that would 
normally go to the Apple screen to be directed at the device in the 
specified slot. Unlike the BASIC PR # command, OUTDEV does not direct 
typein to the alternate device. The Logo screen editor and top-level line 
editor are unaffected. Using OUTDEV with an input of 0 will reset the 
output device to screen. 

Typing ctrlshift-M will redirect output to the screen. It is equivalent to 
executing an OUTDEV 0, but takes effect immediately, even if Logo is in 
the process of printing something to a printer. 6 


4 ln draw and nodraw mode, REPEAT, RUN, DEFINE, and all file-system commands cause 
Logo to forget the previous line. Additionally, due to line-length restrictions, Logo might not 
remember all of the previous line if it was very long. 

5 lt is also possible to use OUTDEV to designate a user-supplied assembly language 
routine that should be called in place of the normal character output routine. See section 
6 . 3 . 1 . 

6 

But not if the Apple is “hung” waiting for the printer to receive a character. Typically, 
this condition occurs when the printer is off or otherwise disabled. 



Use of the Logo System 


17 


2.3.1. Printing Procedures on a Printer 

The following examples will work if you have a printer attached to Apple 
slot 1. 

To obtain a paper printout of a procedure called CIRCLE, you could 
type 

OUTDEV 1 

PRINTOUT CIRCLE 

OUTDEV 0 

Alternatively, you could type 

HPO "CIRCLE 
after you define HPO as 

TO HPO :PROCEDURENAME 
OUTDEV 1 

RUN LIST "PRINTOUT :PROCEDURENAME 
OUTDEV 0 

END 

HPO means “hardcopy printout.” HPO "ALL will list all procedures and 
names. The following procedure takes a list of procedures as an input 
and prints them out on the-printer in the order they appear in the list. It’s 
useful for final listings of programs where you want the procedures 
printed out in a certain order. 


TO HPL :LIST 
IF :LIST=[] STOP 
HPO FIRST :LIST 
HPL BF :LIST 
END 

Once you have defined HPO and HPL, this command line will print out 
the procedures BIRD, HEAD, WINGS, TAIL, and LEGS, in that order: 

HPL [BIRD HEAD WINGS TAIL LEGS] 

To list all the procedures, but no names, type 
HPO "PROCEDURES 
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2.3.2. Printing Pictures 

Many Apple-compatible printers support printing pictures (“screen 
dumps”). Before you can print a copy of the turtle-graphics screen on 
your printer, there are a few things you need to know. 

Since the aspect ratio (squareness of the dots that make up the image) 
of a printer is different from that of a video monitor or television, figures 
that look square on the screen will come out rectangular when printed on 
paper. If you are producing output especially for printing, you might want 
to determine the proper aspect ratio to use with your printer. Frequently 
you can compromise by setting the aspect ratio to be between that of the 
monitor and that of the printer, with negligible bad effects. See the 
description of the .ASPECT primitive, page 40. 

Saving pictures on disk and printing them later is by far the most 
common (and inexpensive) method of obtaining screen hardcopy. You 
can store pictures on disk with the SAVEPICT (p. 23) command. 
SAVEPICT saves the picture as an Apple DOS binary file to which “.PICT” 
is appended to differentiate it from other files. The turtle-graphics screen 
is stored in memory in the primary high-resolution graphics page. 

Commercially available programs will load these picture files and print 
them out on a wide variety of printers. The GRAPHTRIX package 7 is 
commonly available in computer stores and is easy to use. 


Orange Microsystems Grappler 

The Grappler interface card connects the Apple II to many popular 
printers. Different versions of the interface are required for different 
printers; however, the following procedure will print the screen on any of 
them, assuming the interface card is in slot 1. 

TO HC ;hardcopy of graphics screen 
OUTDEV 1 

(PRINT1 CHAR 9 ”6 CHAR 13 ) 

OUTDEV 0 
END 


7 written by Data Transforms, 906 E. Fifth Ave., Denver CO 80218. 
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The Grappler will print pictures with various options, including reverse 
color, rotation, and magnification. The characters specifying these modes 
should be placed immediately after the "G above. Refer to the Grappler 
card manual for a detailed description of Grappler modes and options. 


Silentype 

The Silentype printer, available from Apple Computer dealers, has the 
built-in capability to print pictures. Assuming that the printer is in slot 1, 
the following Logo procedure will print the screen: 

TO HC ;Silentype hardcopy of graphics screen. 

OUTDEV 1 
PRINT 1 CHAR 17 
OUTDEV 0 
END 


The ascii character with code 17 is a request to the Silentype to print the 
screen. You may find it more attractive to print the screen in “inverse” 
mode, or to use other options. See the Silentype documentation for the 
appropriate control information. Experimentation has shown the following 
set of options to work well: 


TO HC 


; improved version for Silentype 


OUTDEV 7 
.DEPOSIT 53008 
.DEPOSIT 53007 
.DEPOSIT 53012 
PRINT1 CHAR 17 
.DEPOSIT 53007 
OUTDEV 0 
END 


7 ;set printer to darkest print 

128 ;set to unidirectional printing 

0 ;set to inverse printing 

;print the screen 

0 ;turn off unidirectional printing 


IDS Color Printer 

Use the Prism Print software (Integral Data Systems order number 9100- 
002-644) for printing saved pictures. There is currently no interface for 
printing color pictures without leaving Logo. 
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2.4. Color Control 

If you have a color TV monitor, you can use the PENCOLOR command 
(abbreviated PC) to change the color of the lines that the turtle draws. 
You can also use the BACKGROUND command (abbreviated BG) to make 
the turtle draw on backgrounds of various colors. Both PENCOLOR and 
BACKGROUND take a number 0 through 6 as input. The correspondence 
of colors to numbers is as follows: 8 

number color 
0 black 

1 white 

2 green 

3 violet 

4 orange 

5 blue 

Drawing with PENCOLOR 6 “reverses” the color of all dots that the 
turtle passes over. The actual color produced depends on both the 
background color and the color of the dot the turtle is passing over but in 
all cases, reversing the color of a dot and then reversing it again will 
restore the original color. PENCOLOR 6 is most useful with black-and- 
white graphics. 

If you don’t explicitly give any BACKGROUND or PENCOLOR 
commands, Logo will default to BACKGROUND 0 and PENCOLOR 1. 


2.4.1. Drawing on Colored Backgrounds 

When drawing on a colored background (2 through 5), only two of the 
four colors - green, violet, blue, orange -- are available. When the 
background is green or violet, blue and orange cannot be used: 
PENCOLOR 4 will draw in green and PENCOLOR 5 will draw in violet. 


0 

The actual color that appears on the screen corresponding to any of these color names 
can vary greatly depending on the adjustment of the TV monitor. Also, if you have a black 
and white monitor, the “colors” will appear as striped vertical lines. 
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When the background in blue or orange, PENCOLOR 2 will draw in 
orange and PENCOLOR 3 will draw in blue. Also, if you draw a picture on 
the screen and then change the background color, the colors of the lines 
in the picture may change, or the lines may become distorted in 
unexpected ways; however, returning to the background color in which 
the lines were drawn will always restore their original appearance. 9 


2.4.2. Drawing without Color Control 

In order to obtain clear colors with the Apple computer, the Logo 
system must draw lines more thickly than would otherwise be necessary. 
This means that drawings will not look as precise as they could if one drew 
only thin lines. If you don’t care about color, you will obtain better looking 
drawings by using thin lines. To do this, select BACKGROUND 6. In 
BACKGROUND 6, PENCOLOR 0 gives black, 1 through 5 give “white,” 
and 6 gives “reverse.” The reason that “white” is in quotes is that “white” 
lines may not always appear white on a color monitor. 10 


2.5. The Logo File System 

The Logo file system allows you to save procedure definitions on floppy 
disk. A user may have many files on a single disk, and the files are 
distinguished by the fact that they are named. The names of the files are 
listed in the disk catalog . 


g 

These strange effects are the result of a compromise with the Apple computer color 
system, which does not allow, for example, green dots to appear very close to orange dots. 

10 ln particular, “white” vertical lines will be either red or green, depending on their 
position. 
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2.5.1. Disk Files 

When you use Logo, you should normally have a Logo file diskette 
mounted in the disk drive. File diskettes may be created as described in 
section 2.5.3 below. If you want to save your procedure definitions, use 
the SAVE command. For example, 

SAVE "MYSTUFF 

will save all the procedure definitions and names currently in workspace in 
a file named MYSTUFF. There can be both a procedure and a file with the 
same name, however SAVE saves everything in the workspace and will ng| 
save only the procedure by that name. If you already had a file of that 
name, the old one will be deleted. The READ command takes a file name 
as input and reads the procedures and names from that file into the 
workspace. The procedures and names will be added to the ones 
currently in workspace. 11 

Notice that the file names given as inputs to SAVE and READ are 
preceded by a quote and have no following quote. 

The CATALOG command lists all the files on the disk. Logo workspace 
files will be listed with the characters ".LOGO” appended to the name. 
For example, the file created by 

SAVE "MYSTUFF 

will be listed in the catalog as MYSTUFF.LOGO. Do not include the 
.LOGO part of the name when you use the READ or SAVE commands. 

To remove a file from the disk, use the ERASEFILE command, which 
takes as input the name of the file to be erased. 


11 Logo filing makes use of the same memory area as for drawing pictures and editing 
procedures. Issuing any filing command while in draw mode will first move you to nodraw 
mode. 
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2.5.2. Saving Pictures 

In addition to saving procedure definitions, Logo also allows you to save 
a graphics screen image on the disk, so that it can be read back in and 
displayed. To do this, use SAVEPICT and READPICT. 

SAVEPICT, which is similar to SAVE, takes a name as input. It saves on 
the disk the picture currently on the turtle graphics screen. (SAVEPICT 
should only be done when you are in graphics mode.) READPICT reads in 
a picture that was saved by SAVEPICT, and displays this picture on the 
screen. When you do a CATALOG you will notice that “.PICT” is 
appended to picture files just as the “.LOGO" is appended to regular 
Logo files. Do not include the “.PICT” part of the name when you use the 
READPICT command. (However, you do need the “.PICT” if you access 
the file from outside of Logo.) 

To erase a picture from the disk, use the ERASEPICT command, which 
takes as input the name of the picture to be erased. 

You can use any of a number of commercial software packages for 
printing saved picture files on printers. Logo picture files are stored in the 
standard binary file format. In memory, they are located in the primary 
graphics page. 


2.5.3. Configuring File Diskettes 

Logo files are saved on regular floppy diskettes that have been 
appropriately configured. Here are instructions for users with Applesoft 
BASIC Apples to create Logo file diskettes. 

1. Put the Logo Utilities disk into the Apple and switch on the 
power. The Utilities disk is not the disk that you use to start 
Logo, but is the one containing the demonstration and utility 
programs. 

2. Type 

LOAD HELLO 

and press return and wait for the computer to stop. 

3. Remove the Utilities disk from the drive and insert a new disk. 



24 


Logo for the Apple II: Technical Manual 


Beware that this disk will be re initialized and any previous 
information on it will be destroyed. 

4. Type 

INIT HELLO 

Press return and wait. When the computer stops (after about 
a minute) the disk has been initialized and can be used for 
storing Logo files. 

Users of Integer BASIC Apples should use the following method for 
creating file diskettes: 

1. Remove the write-protect tab from the Utilities Disk and insert 
it in the disk drive. Turn on your Apple. It will print 
“LANGUAGE NOT AVAILABLE” and a prompt (“>"). Type 
the following commands: 

10 PRINT "CTRL-D CATALOG" 

UNLOCK HELLO 
DELETE HELLO 
SAVE HELLO 
LOCK HELLO 

2. IMPORTANT: Remove the Utilities Diskette from the drive, and 
replace its write-protect tab. 

3. Place the blank diskette in the drive and proceed with step 2 
of the Applesoft instructions above. 
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Chapter 3 

Logo System Primitives 

Logo is a full-scale, powerful computer language. It includes 
commands for graphics, arithmetic operations and list processing. It also 
incorporates a real-time screen editor that can be used both for editing 
command lines as they are typed and for editing procedure definitions. 


3.1. Graphics Commands 


BACK Moves the turtle in the opposite direction from which it 

is pointing by the amount specified. Abbreviated: BK. 

BACKGROUND Takes a number 0 through 6 as input and sets the 
color of the graphics screen background as described 
in section 2.4. Abbreviated: BG. 


CLEARSCREEN Clears the graphics screen. Does not change the 
turtle’s position, the pen state, or the turtle being 
hidden or shown. Abbreviated: CS. 

DRAW Clears the graphics screen, homes the turtle to the 

center of the screen, shows the turtle, and puts the 
pen down. It does not change the background or pen 
color. 


FORWARD 

FULLSCREEN 

HEADING 

HIDETURTLE 

HOME 


Moves the turtle in the direction in which it is pointing 
by the amount specified. Abbreviated: FD. 

In graphics mode, gives full graphics screen. 
Complementary to SPLITSCREEN. Equivalent to 
interrupt character ctrl-F. 

Outputs the turtle’s heading as a decimal number. The 
heading ranges from 0 to less than 360. When the 
turtle has a heading of 0 it is pointing straight up. 

Makes the turtle pointer disappear. Abbreviated: HT. 
Moves the turtle to the center of the screen, pointing 
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LEFT 

NODRAW 

NOWRAP 

PENCOLOR 

PENDOWN 

PENUP 

RIGHT 

SETHEADING 

SETX 

SETXY 

SETY 

SHOWTURTLE 


straight up. 

Rotates the turtle. Takes an input that specifies the 
number of degrees to rotate. Abbreviated: LT. 

Exits graphics mode, giving a clear text page with the 
cursor homed in the upper left-hand corner of the 
screen. Abbreviated: ND. 

Exits wrapping mode. Any command that would 
normally cause the turtle to move off one edge of the 
screen and onto the opposite edge instead results in 
an error. 

Takes a number from 0 through 6 and sets the color of 
the lines that the turtle will draw as described in 
section 2.4. Abbreviated: PC. 

Causes the turtle to leave a trail when it moves. This is 
the default state and it is changed by PENUP. 
Abbreviated: PD. 

Causes the turtle to move without leaving a trail. 
Abbreviated: PU. 

Rotates the turtle. Takes an input that specifies the 
number of degrees to rotate. Abbreviated: RT. 

Rotates the turtle to the direction specified. Input 
determines number of degrees. Zero is straight up, 
with heading increasing clockwise. Abbreviated: 
SETH. 

Moves the turtle horizontally to the specified 
coordinate. 

Takes two numeric inputs. Moves the turtle to the 
specified point. 0,0 is screen center. When the y- 
coordinate (second input) is negative, it must be 
enclosed by parentheses. 

Moves the turtle vertically to the specified coordinate. 

Makes the turtle pointer appear. This is the default 
state and it is changed by HIDETURTLE. Abbreviated: 
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SPLITSCREEN 

TEXTSCREEN 

TOWARDS 

TURTLESTATE 

WRAP 

XCOR 

YCOR 


ST. 

In graphics mode, gives mixed text/graphics screen, 
which is the default state. Complementary to 
FULLSCREEN. Equivalent to interrupt character ctrl- 
S. 

In graphics mode, gives full text screen. See 
SPLITSCREEN, FULLSCREEN. Equivalent to interrupt 
character ctrl-t. 

Takes two numbers as inputs. These are interpreted 
as the x and y coordinates of the point on the screen. 
TOWARDS outputs the heading from the turtle to the 
point. That is, SETHEADING TOWARDS :X :Y will 
make the turtle face towards point x,y. Compare with 
ATAN. 

Takes no inputs. Outputs a list of four items giving 
information about the state of the turtle. The format of 
the list is as follows: The first element is TRUE or 
FALSE for pen down or pen up, then TRUE or FALSE 
for show or hide turtle, then background color, then 
pen color. Abbreviated TS. 

Places the graphics system in wrapping mode. Any 
time the turtle moves off the edge of the screen, it 
reappears at the opposite edge. Wrap mode is the 
default, and is exited only by the NOWRAP command. 

Outputs the turtle’s x-coordinate as a decimal number. 
Outputs the turtle’s y-coordinate as a decimal number. 
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3.2. Numeric Operations 


+ 


/ 

> 

< 

ATAN 

COS 

INTEGER 

NUMBER? 

QUOTIENT 

RANDOM 


RANDOMIZE 


Addition 

Subtraction (two inputs) and negation (one input). 
Multiplication 

Division (always outputs a decimal value). 

Outputs TRUE if its first input is greater than its 
second, FALSE otherwise. 

Outputs TRUE if its first input is less than its second, 
FALSE otherwise. 

Takes two inputs and then outputs (in degrees) the 
arctangent of the quotient. The output ranges from 0 
to less than 360, with the quadrant corresponding to 
the signs of the two inputs. If the second input is 
negative, it must be enclosed by parentheses. 

Outputs the cosine of its input (as an angle in 
degrees). 

Takes one numeric input and outputs the integer part, 
ignoring the fractional part. 

Outputs TRUE if its input is a number. See also 
WORD? and LIST?. 

Outputs the integer quotient of its two inputs. (If the 
inputs are not integers, it first rounds them to the 
nearest integer.) If the second input is negative, it 
must be enclosed by parentheses. 

Takes one input -- a positive integer n -- and outputs 
an integer between 0 and n-1. Identical sequences of 
calls to RANDOM will yield repeatable sequences of 
random numbers each time Logo is restarted unless 
the seed for the random number generator is 
RANDOMIZEd. 

Randomizes the seed for RANDOM. If given an 
explicit input, sets the random number seed to that 
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REMAINDER 


ROUND 

SIN 

SORT 


3.3. Word and 


BUTFIRST 


BUTLAST 


number. For example, after each execution of 
(RANDOMIZE 259) the same sequence of random 
numbers will be generated. Different numbers result in 
different sequences. Note that () are needed around 
RANDOMIZE if an input is used, such as (RANDOMIZE 
259) above. 

Outputs the integer remainder of its first input divided 
by its second. (If the inputs are not integers, it first 
rounds them to the nearest integer.) If the second 
input is negative, it must be enclosed by parentheses. 

Outputs the nearest integer to its input. 

Outputs the sine of its input (as an angle in degrees). 

Takes a positive number as input and outputs the 
square root of that number. 


List Operations 

If both inputs are numbers, compares them to see if 
they are numerically equal. If both inputs are words, 
compares them to see if they are identical character 
strings. (In this case, a space is needed before the = 
sign.) If both inputs are lists, compares them to see if 
their corresponding elements are equal. Outputs 
TRUE or FALSE accordingly. 

If the input is a list, outputs a list containing all but the 
first element. If the input is a word, outputs a word 
containing all but the first character. Abbreviation: BF. 
Gives an error when called with the empty word or the 
empty list. 

If input is a list, outputs a list containing all but the last 
element. If input is a word, outputs a word containing 
all but the last character. Abbreviation: BL. Gives an 
error when called with the empty word or the empty 



30 

FIRST 

FPUT 

LAST 

LIST 

LIST? 

LPUT 

SENTENCE 


Logo for the Apple II: Technical Manual 


list. 

If input is a list, outputs the first element. If input is a 
word, outputs the first character. Gives an error when 
called with the empty word or the empty list. 

Takes two inputs. Second input must be a list. 
Outputs a list consisting of the first input followed by 
the elements of the second input. Therefore, if the first 
input is a list, for example FPUT [A B][C D], the result 
will be [[A B]C D]. See also LPUT, LIST, and 
SENTENCE. 

If input is a list outputs the last element. If input is a 
word, outputs the last character. Gives an error when 
called with the empty word or the empty list. 

Takes a variable number of inputs (two by default) and 
outputs a list of the inputs. Therefore, if the first and 
second inputs are lists, for example LIST [A B] [C D], 
the result will be [[A B][C D]]. See also FPUT, LPUT, 
and SENTENCE. If there are more than two inputs, 
there must be an opening parenthesis before LIST, 
and a space and closing parenthesis after the last 
input. 

Outputs TRUE if its input is a list. See also WORD? 
and NUMBER?. 

Takes two inputs. Second input must be a list. 
Outputs a list consisting of the elements of the second 
input followed by the first input. Therefore, if the first 
input is a list, for example LPUT [A B] [C D], the result 
will be [C D[A B]]. See also FPUT, LIST, and 
SENTENCE. 

Variable number of inputs (default 2). If inputs are all 
lists, combines all their elements into a single list. If 
any inputs are words (or numbers), they are regarded 
as one-word lists in performing this operation. 
Therefore, .if the first and second inputs are lists, for 
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example SENTENCE [A B] [C D], the result will be [A B 
C D]. If there are more than two inputs, there must be 
an opening parenthesis before SENTENCE, and a 
space and closing parenthesis after the last input. See 
also FPUT, LPUT, and LIST. Abbreviated: SE. 

WORD Variable number of inputs (default is 2). Outputs a 

word that is the concatenation of the characters of its 
inputs (which must be words). If there are more than 
two inputs, there must be an opening parenthesis 
before WORD, and a space and closing parenthesis 
after the last input. 

WORD? Outputs TRUE if its input is a word. Since numbers are 

treated as words, the result will also be TRUE for a 
number. See also LIST? and NUMBER?. 


3.4. Defining and Editing Procedures 

DEFINE Takes two inputs. First is a name, second is a list. 

Each element of this list must be a list itself. The first 
element of the list is a list of inputs to the procedure. 
(If there are no inputs to the procedure, the first 
element should be the empty list.) Each subsequent 
element is a list corresponding to one line of the 
procedure being defined. For example, DEFINE 
"TRIANGLE [[:SIZE][REPEAT 3[FD :SIZE RT 120]]]. 
See TEXT. Note that one normally uses TO rather than 
DEFINE in order to define procedures. 

EDIT Enters edit mode. If a procedure name is included as 

an input, that procedure will be in the editor. If no 
input is specified, enters edit mode with the previous 
contents of the screen editor buffer, or the most 
recently defined (or PO’d) procedure if the previous 
contents are unretrievable. Can also take auxiliary 
words: ALL, NAMES, PROCEDURES. See page 12 for 
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a description of keystroke commands inside the editor. 
Abbreviated: ED. 

Terminates a procedure definition that is typed in to 
the editor. It is not necessary to type END at the end of 
the final definition. But if you are defining more than 
one procedure at a time, the separate procedure 
definitions must be separated by END statements. 

Erases designated procedure from workspace. Can 
also take qualifiers ALL, NAMES, PROCEDURES. 
Signals an error if there is no procedure with the given 
name. For convenience, the input to erase is not 
evaluated (i.e. Logo will not try and run the procedure 
being erased.); to erase a procedure called LOOKUP, 
type ERASE LOOKUP. Abbreviated: ER. To erase a 
list of procedures, the following procedure can be 
used. 

TO ERPROCS : PROCLIST 
IF :PR0CLIST = [] STOP 
RUN LIST "ERASE FIRST :PROCLIST 
ERPROCS BUTFIRST :PR0CLIST 
END 

Takes a name as input and removes that name from 
the library. Signals an error if the name is not used. 
Note that unlike ERASE, the input to ERNAME is 
evaluated. Thus, to erase the name TEMP, type 
ERNAME "TEMP. If ERNAME TEMP is typed, TEMP is 
assumed to be a procedure and Logo tries to run it. 

Takes a procedure name as input and outputs 
procedure text as a list. The procedure name must 
start with " or Logo will run the procedure. If the 
procedure has not been defined, TEXT outputs []. If 
instead the input is the name of a Logo primitive, it 
outputs the primitive’s name (i.e., the input). See 
DEFINE. 
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TO Begins procedure definition. Takes a variable number 

of inputs. Enters edit mode with the procedure named 
by the first input. Any following inputs are taken as 
inputs to the procedure named by the first input. With 
no inputs at all, TO enters edit mode with an empty edit 
buffer. 


3.5. Naming 

MAKE Takes two inputs, the first of which must be a word. It 

treats the word as a variable, and makes the second 
input be the value (thing) of the variable. 

THING Outputs the value of its input, which must be a word. 

Note that this gives an “extra level” of evaluation. 
THING "XXX is equivalent to :XXX. 

THING? Outputs TRUE if its input has a value associated to it. 


3.6. Conditionals 

ALLOF Takes a variable number of inputs (default is two) and 

outputs TRUE if all are TRUE. If there are more than 
two inputs, there must be an opening parenthesis 
before ALLOF, and a space and a closing parenthesis 
after the last input. 

ANYOF Takes a variable number of inputs (default is two) and 

outputs TRUE if at least one is TRUE. If there are more 
than two inputs, there must be an opening parenthesis 
before ANYOF, and a space and a closing parenthesis 
after the last input. 

ELSE Used in IF... THEN ... ELSE. 

IF Used in the basic conditional form IF <condition> 

THEN <action1> ELSE <action2>. The <condition> is 
tested'. If it is true <action1> is performed. If it is false 
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IFFALSE 

IFTRUE 

NOT 

TEST 


THEN 


<action2> is performed. The word THEN is optional. 
The ELSE <action2> part need not be present. The 
<condition> must be a Logo expression which outputs 
"TRUE or "FALSE. A Logo variable whose value is 
"TRUE or "FALSE satisfies this condition, as do 
various testing functions such as <, >, =, and NOT. 
Both <action1> and <action2> may be any number of 
Logo expressions. 

Executes rest of line only if result of preceding TEST 
was false. Abbreviated: IFF 

Executes rest of line only if result of preceding TEST 
was true. Abbreviated: IFT 

Outputs TRUE if its input is FALSE, FALSE if its input 
is TRUE. 

Tests a condition to be used in conjunction with 
IFTRUE and IFFALSE. TEST takes one input, which 
must be either TRUE or FALSE. The result of the most 
recent TEST in each procedure is used by IFTRUE and 
IFFALSE, and is local to the current procedure. 

Used with IF ... THEN ... ELSE ... 


3.7. Control 


GO 


GOODBYE 

OUTPUT 


Takes a word as input and transfers to the line with 
that label. You can only GO to a label within the same 
procedure. Labels are defined by typing them at the 
beginning of the indicated line-followed by a colon. 
(GO is very rarely used in Logo programming.) 

Clears workspace and restarts Logo. 1 

Takes an input. Causes the current procedure to stop 


i 


But it does not clear the user machine-language area. 
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REPEAT 

RUN 


STOP 

TOPLEVEL 


and output the input to the calling procedure. If the 
input has to be evaluated, it outputs the result of that 
evaluation. Abbreviated: OP. 

Takes a number and a list as input. RUNs the list the 
designated number of times. 

Takes a list as input. Executes the list as if it were a 
typed in command line. Note: the number of 
characters in the list (i.e., the number of characters 
you would get if you printed it) given to RUN must not 
exceed the maximum number of characters allowed in 
the top-level command line, 255. Otherwise, an error 
is signalled. (ERASE and PO must be treated 
differently than other commands when they follow 
RUN. For an example, see the listing for ERASE and 
PO.) 

Causes the current procedure to stop and return 
control to the calling procedure. 2 

Aborts the current procedure and all calling 
procedures and returns control to toplevel. 3 It is not 
used very often in Logo programming. 


p 

STOP does not mean the same thing as END. STOP is a primitive which when executed 
causes the current procedure to stop executing, and returns control to the previous 
procedure (or toplevel). END is used in the editor to indicate where a procedure ends. It is 
never executed. 

3 

Note the difference between TOPLEVEL and STOP. STOP stops just the current 
procedure and continues execution with the calling procedure, whereas TOPLEVEL aborts 
execution of the whole program. 
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3.8. Input and Output 


OUTDEV 


ASCII 

CHAR 

CLEARTEXT 

CLEARINPUT 

CURSOR 

PADDLE 


Takes as input a number designating a slot on the 
Apple card. After executing this command, everything 
except typein will be sent to the device plugged in to 
the designated slot rather than to the screen. 
OUTDEV 0 specifies output to the screen. A “slot 
number” number greater than 255 is interpreted as the 
address of a user-supplied assembly language routine 
to be called in place of the usual character output 
primitive. See section 6.3.1. Typing ctrl-SHIFT-M will 
restore output to the screen. 

Takes a character as input and outputs the number 
that is the ASCII code of that character. 

Takes an integer as input and outputs the character 
whose ASCII code is that integer. 

Clears the text screen and homes the cursor. 

Clears the character input buffer of any typed-ahead 
characters. 

Takes two inputs, column and row, and positions the 
cursor there. Columns are 0-39, rows are 0-23. 0,0 is 
upper left. See the CH and CV locations (page 74) to 
find out how to determine the cursor’s current 
position. 

Takes a number 0 through 3 as input, which specifies 
the paddle. Outputs a number 0-255 depending on the 
setting of the appropriate paddle dial. One example 
that can be used with either two paddles or a joystick 
is SETXY PADDLE 0 PADDLE 1. 


PADDLEBUTTON Take a number 0 through 2 as input and outputs TRUE 
or FALSE depending on whether the button on the 
corresponding paddle is pressed. One example of its 
use is IF PADDLEBUTTON 0 = "TRUE THEN 
CLEARSCREEN. On the Apple II, paddle 3 does not 
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have an associated paddle button. 

PRINT Variable number of inputs (default is 1). Prints the 

input on the screen. Lists are printed in “sentence” 
form, without the outermost level of brackets. The 
next PRINT will print on the next line of the screen. If 
there are multiple inputs, as in (PRINT 1 2 3L the 
inputs will be printed on one line, separated by spaces. 
Note that for multiple inputs, the entire statement must 
be enclosed in parentheses. If the input to PRINT is a 
procedure, it will not print the procedure, but will 
execute the procedure assuming the procedure will 
output something to print. (See also PRINTOUT) 
Abbreviated: PR. 

PRINT1 Like PRINT, but does not terminate output line with a 

return. With multiple inputs, does not print spaces 
between elements. 

RC? Outputs TRUE if a keyboard character is pending (i.e., 

if READCHARACTER would output immediately, 
without waiting for the user to press a key), otherwise 
outputs FALSE. 

READCHARACTER 

Outputs the least recent character in the character 
buffer, or if empty, waits for an input character. See 
CLEARINPUT, and section 7.4. See the explanation of 
the INSTANT program on the utilities disk for an 
example of its use. Abbreviated RC. 

REQUEST Waits for an input line to be typed by the user and 

terminated with return. Outputs the line (as a list). 
Abbreviated: RQ. 
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3.9. Filing and Managing Workspace 


CATALOG 

DOS 


ERASEFILE 

ERASEPICT 

PRINTOUT 


Prints the names of files on the currently mounted 
disk. 

Takes one input (word or list), and interprets it as 
commands to DOS. DOS [RENAME GMAE.LOGO, 
GAME.LOGO] will rename something saved with SAVE 
"GMAE. To “unlock” locked files (those which appear 
with an asterisk in the CATALOG listing) type, for 
example, DOS [UNLOCK ADDRESSES.LOGOJ. The 
following DOS commands are available in this manner: 
DELETE, VERIFY, CATALOG, LOCK, UNLOCK, MON, 
NOMON, RENAME, BLOAD, BRUN, BSAVE. See the 
Apple DOS manual for information on the syntax of 
DOS commands. WARNING: This command is likely to 
be removed and replaced with individual primitives. 

Removes from the disk a file saved with SAVE. Takes 
file name as input, which must begin with a " mark. 

Removes a picture that has been stored on the disk 
using SAVEflCT. Takes picture name as input, which 
must begin with a " mark. 

If given a procedure name as input, prints out the text 
of the procedure. If given no input, prints out the last 
procedure defined, edited or printed out. For 
convenience, the input is not evaluated; thus to see a 
procedure called CIRCLE, you would type PO CIRCLE 
and not PO "CIRCLE. Can also take auxiliary words: 
ALL, NAMES, PROCEDURES. To print out a list of 
procedures, the following procedure can be used. 


TO POPROCS :PR0CLIST 
IF rPROCLIST = [] STOP 
RUN LIST "PO FIRST :PR0CLIST 
POPROCS BUTFIRST rPROCLIST 
END 
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READ 

READPICT 

SAVE 


SAVEPICT 


Abbreviated: PO. POTS is an abbreviation for 
PRINTOUT TITLES. (See also PRINT.) 

Reads a file from disk. Destroys any graphics display. 
Takes file name as input, which must begin with a " 
mark. 

Reads a picture that has been stored on disk and 
displays it on the graphics screen. Takes picture 
name as input, which must begin with a" mark. 

Saves the contents of the workspace on disk. See the 
Filing comments. Destroys any graphics display. 
Takes file name as input, which must begin with a " 
mark. 

Save on disk the picture on the screen. Takes picture 
name as input, which must begin with a " mark. 


3.10. Debugging 


CONTINUE 

PAUSE 


NOTRACE 

TRACE 


Resumes execution after a PAUSE or ctrl-Z. 
Abbreviated: CO. 

Stops execution and allows command lines to be 
evaluated in the current local environment. Equivalent 
to interrupt character ctrl-Z. Execution is resumed 
with CONTINUE, provided no errors have occurred. 

Turns off tracing. 

Takes no input. Causes Logo to pause before 
executing each procedure, and print the name of the 
procedure and its inputs. Typing any character other 
than ctrl-G or ctrl-Z will cause Logo to go on to the 
next line. Typing ctrl-G will cause Logo to abort to 
toplevel. ctrl-Z will pause, and space will continue 
execution. See ctrl-W, page 12. 
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3.11. Miscellaneous Commands 

.ASPECT Changes the vertical scale at which Logo graphics are 

drawh. Takes one numeric input and uses this to 
change the scale factor. The default value for the 
factor is 0.8. This command is included because not 
all TV monitors have the same amount of vertical 
deflection. Consequently, turtle programs that are 
supposed to draw squares and circles may instead 
appear to draw rectangles and ellipses. If so, the 
.ASPECT command can be used to attempt to 
compensate for the distortion. Note that changing the 
factor will change the limits for permissible y* 
coordinates. 4 

Breaks out of Logo into the Apple monitor. (For use in 
Logo system debugging only.) Useful entry addresses 
are 1BF9, which is a “cold start’’ address to use after 
Logo has been started before: and the “warm start” 
address 1BFC, for attempting to recover after a system 
crash. After restarting Logo at the cold start address, 
all procedures are lost: it is just like typing GOODBYE. 
The warm start address leaves all variables and 
procedures intact. 5 The best way to return to Logo is 
to type ctrl-Y and RETURN, 

Calls a machine language subroutine in memory. The 
address of the subroutine is the first input; the second 
input is stored in a memory location for the routine to 
examine. This primitive allows users to provide their 
own special-purpose primitives and interface them to 


.BPT 


.CALL 


4 

There is a problem with using values of .ASPECT that are too different from 0.8: Although 
lines will be drawn at the correct angle, the turtle pointer may not always appear to be 
pointing exactly along the line. 

5 

In fact, all local variables still have the values they had at the time Logo was interrupted. 
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.CONTENTS 


.DEPOSIT 

.EXAMINE 

.GCOLL 

.NODES 


Logo. See section 6.2. 

Returns a list of all words known to Logo. This 
includes names of variables, procedures, and words 
used in procedures. One use might be an editing 
program that, for each procedure defined, asks you 
whether you want to delete it. TEXT and THING? are 
useful primitives to use with the elements of this list. 
Caution: Use of this primitive interferes with garbage 
collection of “truly worthless atoms”. 6 These are the 
no-longer-used words that Logo has in memory, 
usually as the result of typing errors. If you run short 
of memory, it might be because an old list from 
.CONTENTS is around somewhere keeping Logo from 
recovering the storage associated with no-longer- 
needed words. 

Takes two numeric inputs, an address and a value, 
and deposits a byte of data at a designated memory 
location. See section 6.1. 

Takes one input. Outputs the value of the byte at the 
specified address. See section 6.1. 

Forces a garbage collection. 

Outputs the number of currently free nodes. To obtain 
a true count of free memory, type .GCOLL before 
typing .NODES. 

Causes the rest of the line not to be evaluated. Useful 
for including comments in procedures and procedure 
titles. 


g 

Actually, no version of Logo for any microcomputer yet implements GCTWA, so the 
storage is never recovered. Terrapin, however, is working on implementing this feature. 
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Chapter 4 
The Utilities Disk 

The Utilities Disk is the diskette containing demonstration and utility 
programs from MIT and Terrapin. One Utilities Disk is included with each 
Logo package. 

This chapter lists the files on the Utilities Disk, and briefly describes how 
to run the demonstration programs included. Further explanation and 
examples are in the Tutorial. 


Using the Utilities Disk 

Start Logo as described in section 1.3. and in the Tutorial. You should 
see the ? prompt with the cursor flashing next to it. 

Insert the Utilities disk into the drive, and type CATALOG, followed by 
return. This will give you the first part of a listing of the programs on the 
disk. You must press the space bar to see the remainder. If you type 
CATALOG while Logo turtle graphics are on the screen, you will see only 
four lines of text at a time. You can type ctrl-T to see the full text screen, 
and ctrl-S to return to the graphics screen. 

To read a program from the disk, type READ 2. immediately followed by 
the name of the program. Do not use a closing quotation mark, and do not 
type “.LOGO” at the end of the name. 

Logo will then print out the name of each procedure in the file as it is 
read in and defined. When it is finished, the ? prompt will reappear. 

Some programs are self-starting; that is, they begin executing by 
themselves once you read the file. Most programs are not, and require 
you to type the name of the initial procedure. The initial procedure for 
most of the demonstration programs on the Utilities disk is the same as the 
name of the file. For utility programs which are intended to be initialized 
and used later, the procedure is usually called “SETUP”. 

If Logo prints the ? prompt when it finishes reading the file, you must 
start the program yourself. The descriptions of the programs below 
explain how to start each one. 
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Here is a sample session showing how to use a demonstration program. 
What you should type is shown hi plain type, and what Logo prints is 
shown in italics. 

?READ "ROCKET 
SH DEFINED 
GLOW DEFINED 
TRAVEL DEFINED 
CIRC DEFINED 
STARS DEFINED 
SHOW DEFINED 
ROCKET DEFINED 
?ROCKET 


4.1. Program Descriptions 

These Logo files are for various utility programs written in Logo by MIT 
and Terrapin. They contain information used by other files on the Utilities 
Disk. 


ASSEMBLER 

AMODES 

ADDRESSES 

OPCODES 

SHAPE.EDIT 
FID 


The Logo assembler procedures. See chapter 6. 

The file of names describing the 6502 addressing 
modes. 

The file of names describing addresses in the Logo 
interpreter for the assembler. 

The file of names describing the 6502 mnemonics for 
the assembler. 

The Logo shape editor, described in section 5. 

A file utility program. It makes deleting and renaming 
files convenient. It starts itself when you read it in. To 
restart it, type FID. 


These files are utility programs provided by Terrapin and MIT. 
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PSAVE 

The Logo SAVE primitive saves all procedures and names currently 
defined. Sometimes this behavior is inconvenient. The PSAVE procedure 
allows you to save an arbitrary list of procedures in a file. The first input to 
PSAVE is the filename, and the second is the list of procedures to save. 
As one of the procedure names, you can use the word NAMES to indicate 
that Logo variables should be saved. (See also the HPL procedure on 
page 17 which prints out a list of procedures to a printer.) 

To load PSAVE, type 

READ "PSAVE 

To save procedures named CIRCLE, SQUARE, and TRIANGLE in the 
file DESIGN, type 

PSAVE "DESIGN [CIRCLE SQUARE TRIANGLE] 

TEACH 

The Logo editor allows tremendous flexibility in defining procedures 
and editing, but at the cost of being complex to new users. The TEACH 
procedure allows the user to define procedures without entering the 
editor. It has the additional advantages of prompting the user for 
information and not clearing the turtle-graphics screen. 

To use the TEACH procedure, type 

READ "TEACH 

Type TEACH to teach Logo a new word and END to stop it. Here is an 
example, with the parts that Logo prints out in italics: 

7TEACH 

NAME OF PROCEDURE>COUHT 

INPUTS (IF ANY)?:U 

OF :N = 0 STOP 

<PRINT :N 

<COUNT :N - 1 

<END 

COUNT DEFINED 
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CURSOR 

These procedures are for controlling character output. The CURSOR 
primitive is the only one provided for controlling the location of the text 
cursor on the screen. The following procedures are for performing 
operations not directly supported in Logo: 


CURSOR.HV 

CURSOR.H 
CURSOR. V 
CURSORPOS 

FLASHING 

INVERSE 

NORMAL 


Outputs a list. The first element is the cursor’s 
horizontal position, and second, its vertical position. 

Outputs just the horizontal position. 

Outputs the vertical position. 

Takes one input (a list) and sets the cursor to the 
corresponding position on the screen. 

Causes all characters printed out after execution of 
this command to be in flashing characters. 

Makes characters be in inverse video (black-on-white). 

Restores the normal mode of white-on-black. 


These procedures do not affect characters already on the screen, only 
those printed out afterwards. You can start a blank text file by typing TO 
followed by return. Then type whatever text you want. When you are 
done, type ctrl-G and then save the file using SAVETEXT. To read a file 
back in, use READTEXT and then type ED followed by return. If you type 
TO it will clear the edit buffer and you will have to use READTEXT again. 


TEXTEDIT 

Procedures for using the Logo editor as a text editor. These 
procedures allow you to use the Logo editor to read and save files of 
English text. 

SAVETEXT .FILE Causes the contents of the editor to be stored on disk 
in the Logo file with the specified name. Example: 

SAVETEXT "LETTER 

READTEXT :FILE Complementary to SAVETEXT. Reads a Logo file into 
the editor. 
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SHOWFILE :FILE Prints the contents of the file on the screen. 

PRINTFILE :FILE Prints the contents of the file on the printer. The 
printer is assumed to be in the slot specified by the 
variable PRINTER. If you don’t set it yourself (by 
typing MAKE "PRINTER 7, for example) it will remain 
slot 1. 

PRINTTEXT Prints the contents of the editor on the printer. 

DPRINT 

This file contains procedures for printing arbitrary text into disk files. 

These procedures are described in section 7.3. 

OPEN :FILE Takes a file name as input. The input to DPRINT (see 
below) will be printed into the Logo file with this name. 

CLOSE Closes the open file. All output will be written to the 

file. 

' DPRINT :ITEM Will cause the item to be printed into the file. 

OPEN.FOR.APPEND :FILE 

Used in.stead of OPEN. Will cause everything printed 
with DPRINT to be appended to the existing file rather 
than writing over it. 

The files created by these procedures can be printed and read into the 

editor by the procedures in the file TEXTEDIT. If you use READ on such a 

file, Logo will attempt to execute the text in the file as Logo commands. 

ARCS 

This file has procedures for drawing arcs and circles of specific radii. 

For your convenience, the procedures for drawing arcs of specific radii 

are reproduced in this file. 

RARC :RADIUS :DEGREES, LARC :RADIUS :DEGREES 

These procedures each take two inputs and draw an 
arc of the specified radius and covering the number of 
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degrees indicated. 

RCIRCLE :RADIUS, LCIRCLE :RADIUS 

These procedures each take one input, the radius, and 
draw a circle of that radius. 

These procedures are also discussed in the book Logo for the Apple M. 


TCL 

Turtle Control Language. 

This file is for owners of the Terrapin Turtle (TM). It contains the 

following procedures for using the Turtle: 

SETUP Type SETUP after loading the file. It initializes the 

Turtle Interface and various system parameters. 

HELP This procedure describes the procedures available for 

using the Turtle. 

TFD :DIST, TBK :DIST, TLT :ANGLE, TRT :ANGLE 

These procedures correspond to FORWARD, BACK, 
LEFT, and RIGHT, but control the floor turtle instead of 
the screen turtle. 


EYESON, EYESOFF 



These procedures turn off and on the LEDs attached 
to the Turtle. 

HORNLO 

Makes the Turtle sound its horn at a low pitch. 

HORNHI 

Similar, but with a higher pitch. 

HORNOFF 

Turns the horn off. 

TPU 

Raises the Turtle’s pen so it won’t draw. This is its 
initial state. 

TPD 

Lowers the pen. 

FTOUCH? 

Outputs TRUE if the Turtle’s dome is touching 
anything on the front; otherwise it outputs FALSE. 

LTOUCH? 

Left touch. RTOUCH? 
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Right touch. BTOUCH? 
Back touch. 


FTOUCHONLY? Whereas FTOUCH? will output TRUE if the Turtle is 
touching something in front, or in front and on the left, 
or in front and on the right, FTOUCHONLY? will output 
TRUE if the Turtle is touching something only in front. 
Use this procedure as a model for similar procedures 
for other directions. 


ANYTOUCH? Outputs TRUE if the Turtle is touching anything. 

NOTOUCH? Outputs TRUE if the Turtle is touching nothing. 

TOUCH Outputs the state of the touch sensors as a number. 

This routine is used internally in the above touch¬ 
testing routines. The Logo variables :FBIT, :LBIT, 
:BBIT, and :RBIT are names for the numbers this 
number is composed of. (See the Terrapin - Apple 
Interface manual for clarification.) 


.TCMD :COMMAND :ARGUMENT 

.TCMD is the lowest-level procedure for controlling the 
Turtle. It sends the command and argument to the 
Turtle. You can use it to make the Turtle do things that 
the above procedures don’t support. See the Terrapin 
- Apple Interface manual for the details of controlling 
the Turtle via this command. 


4.1.1. Demonstration Programs 

These files are various Logo demonstration programs. 


Rocket 

The Logo files ROCKET, ROCKET.AUX and the file ROCKET.SHAPES 
are an illustration of a typical use of user-defined turtle shapes. READ 
"ROCKET and type ROCKET. See page 56 for a description of the shape 
editor. 
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Animal 

This program attempts to augment its knowledge about the animal 
kingdom by playing a game in which it tries to guess the animal you are 
thinking of. It asks various questions, such as “Does it have wings?” You 
answer with “Yes” or “No.” 

Type READ "ANIMAL and ANIMAL. When you are finished playing, you 
can type SAVE "ANIMAL, and the next time you play, it will know the 
animals you taught it. The animal game on the Utilities Disk already knows 
several animals. To make it start out fresh, run the procedure 
INITIALIZE.KNOWLEDGE. 

Animal.Inspector 

The procedures in this file are for examining the ANIMAL knowledge 
base. The ANIMAL game described in the book Logo for the Apple M 
keeps its information about animals in the variable KNOWLEDGE. This file 
contains the procedure INSPECT.KNOWLEDGE, which prints out the 
ANIMAL program’s “knowledge” about animals in an easily readable 
form. This procedure is intended as a learning aid to be used with the 
discussion of the ANIMAL program mentioned above. 

In its use of recursion, it is similar to tree-drawing programs, since it 
actually follows the tree of the Animal program’s knowledge as it prints it 
out. Look at the procedures in this file as an example of recursive 
programming. 

Instant 

This collection of procedures makes the Logo system easy to use even 
for very young children. After you READ "INSTANT and type INSTANT, 
you can use single-character commands to manipulate the turtle and 
define procedures. Each character is acted upon immediately. Typing F, 
for example, makes the turtle move forward a small amount, leaving a trail. 
R makes it turn to the right. Repeating a sequence of F’s and R’s will draw 
a square. 

The INSTANT system allows you to store the commands you have typed 
as a procedure. When you type N, it will define a procedure to draw the 
picture currently on the screen. If you draw a square using R and F, and 
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name the result SQUARE (using the N command), the INSTANT system 
will define a procedure SQUARE with calls to FORWARD and RIGHT in it. 
Typing P to INSTANT will have it ask you the name of a procedure to run 
(picture to show), and run that procedure. Here is a table of INSTANT 
commands: 

? Help. 

D Clears the screen. 

F Go forward. 

L Turn left. 

N Names a new picture. 

P Asks for the name of a picture to show. 

R Turn right 

U Undo the last command. 

The INSTANT program is an example of how easy it is to create 
“languages” with simple Logo programs. It also serves as an example of 
Logo programming style, and of the use of RUN and DEFINE. You can 
easily modify INSTANT to provide more complex commands. 


Dynatrack 

The DYNATRACK program implements something called a “dynamic 
turtle” -- one which moves around with time. This particular program 
simulates a ride around a frictionless racetrack. Type DYNATRACK to 
start. K causes the turtle to accelerate in the direction it was pointing. L 
and R turn the turtle to the left and to the right. 

FID 

FID is a file utility program written in Logo. It allows you to catalog the 
disk, rename files, and delete files, all with single-keystroke commands. 
Each file command asks for the name of a file, and appends to it the 
current "file extension.” The command in FID allows you to change 
the file extension. Useful file extensions for Logo are “LOGO,” “PICT,” 
“SHAPES,” and "BIN.” In the event of a disk-file error, restart the program 



52 


Logo for the Apple II: Technical Manual 


by running the procedure FID. 

Music 

There are three music files: MUSIC.LOGO, containing Logo procedures 
to play music; MUSIC.SRC.LOGO, containing the assembly language 
program for playing notes; and MUSIC.BIN, the file which the music demo 
procedures BLOAD. To run the music programs, READ "MUSIC and type 
SETUP. For a short demonstration, run the FRERE procedure. See page 
72 for documentation of the music system. The Tutorial also has an 
explanation and examples of its use. 


Inspi 

The picture file INSPI was generated by running the following 
procedure four times with the turtle pointing at different angles, and with 
different pen colors: 

TO INSPI DISTANCE :ANGLE : INCREMENT 
FD :DISTANCE 
RT :ANGLE 

INSPI DISTANCE : ANGLE + : INCREMENT : INCREMENT 
END 

You can display the picture by typing READPICT "INSPI. 


TET 

The procedures in this file are an example of how simple Logo 
programs using recursion can draw complex, interesting figures. The TET 
procedure takes two inputs, SIZE and LEVELS. Try TET 100 1 to see what 
the first “level” of the drawing looks like. Then try it with 2, 3, and higher 
levels. 
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Chapter 5 

Changing the Turtle Shape 

As an example of the kind of facility that can be added to Logo through 
judicious use of .EXAMINE and .DEPOSIT, we consider the problem of 
doing “animation” in Logo. Logo for the Apple II is not designed for 
producing animation effects. 1 The best screen motion that you can obtain 
is by moving the turtle. If you want to make a circle move across the 
screen, it will be very slow to repeatedly draw and erase the circle, moving 
the position of the circle little by little. One thing you can do, however, is 
to change the shape of the turtle itself, so that the turtle looks like a circle. 
Then you can make a circle move across the screen by simply moving the 
turtle. 

The Logo turtle is drawn using the Apple “shape” mechanism, that 
allows specification of shapes by tables of two- and three-bit vectors as 
described in the Applesoft Programming Reference Manual. You can 
design your own shapes for Logo to move around on the screen in place 
of the turtle. To set up your own shape table, deposit the location of the 
first element of the table in the address USHAPE. (See section 6.5 for 
explanation of Logo addresses.) The size of the turtle or of the created 
shape can be changed with the one-byte size code contained in address 
SSIZE. The default value, 1, is best for the regular turtle; however, values 
of 2 or greater often make user-defined shapes more visible. Unlike the 
general Apple shape mechanism, the Logo interface to shapes allows 
user-defined shapes to be displayed only at at 0, 90, 180 and 270 degree 
headings. The heading at which the shape is displayed is determined by 
the quadrant in which the "turtle” is facing and can be changed by 
turning the “turtle” with the usual LEFT and RIGHT commands. 

The format of shape tables is as described in the Applesoft Reference 
Manual, except that the header information in the shape table should be 
omitted. Begin each shape table directly with the vectors. Terminate it 


Vhis is in contrast to the Logo implementation for the Texas Instruments 99/4, which 
takes advantage of special animation hardware provided by the computer. 
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normally. 

You can construct a shape table by hand and use .DEPOSIT to store it 
in the Logo area reserved for user code, and then set USHAPE and SSIZE. 
Note that you can make more than one user-defined shape and switch 
between them by changing USHAPE. 


The Logo Shape editor 

Constructing shape tables is a tedious process. One of the programs 
contained on the Logo disk is a “shape editor." This is a Logo program 
that enables you to design a shape by drawing it directly on the screen. It 
then automatically assembles the shape into a shape table. The shape 
editor was written by Henry Minsky. Note that the shape editor is itself a 
collection of Logo procedures that work by using .EXAMINE and 
.DEPOSIT according to the scheme outlined above. You can read in the 
procedures and use them as a guide to writing similar functions. 

To use the shape editor, read in the file SHAPE.EDIT and type SETUP. 
The file contains a real-time shape editor and functions for changing the 
currently displayed turtle shape and its size. To begin designing your own 
shape, give the MAKESHAPE command. This takes one input that is to be 
the name of the shape you will design, for example, 

MAKESHAPE "BOX 

Typing another MAKESHAPE command will cause a new shape to be 
defined. You cannot edit previously-defined shapes. If you wish to erase 
all shapes and start over, type SETUP again. The following commands 
(similar to the editor commands) are available for constructing shapes. 


U 

D 

CTRL-P 

CTRL-N 

arrow keys 


Penup 

Pendown 

Move up (and draw a vertical line if the pen is down). 

Move down (and draw a vertical line if the pen is 
down). 

Move in the direction of the arrow (and draw a 
horizontal line if the pen is down). 
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Exit the shape editor and define the shape. 

Exit without permanently defining the shape. (You can 
set the turtle to the shape as defined so far, but the 
next time you define a new shape, this one will be lost.) 
Use this command to abort definition of a shape if you 
wish to start over. 

Delete the previous few commands. 2 

Typing a number causes the size of the shape to 
change. Typing 3 is equivalent to executing SIZE 3. It 
is helpful to switch between the size you want and a 
larger size, which is easier to see, while designing a 
shape. 

Once you’ve defined a turtle shape (BOX, in this example), you can 
make the turtle assume that shape by typing SETSHAPE :BOX. 

You can change the size in which shapes are shown by using the SIZE 
procedure. SIZE 1 is the default. 

The SETSHAPE takes one input and changes the turtle to have that 
shape. It first hides the turtle, and then shows it. If you want to restore the 
turtle to its original triangular shape, type SETSHAPE 0. 

The internal procedure which SETSHAPE calls is .SHAPE. It, too, takes 
the shape as input, but it doesn’t hide the turtle first. This is useful 
because Logo draws and erases the turtle by drawing the turtle shape in 
“reverse” mode(i.e., pencolor 6). This implies that if you set the turtle to 
some shape, then set the turtle to the a shape with no lines it in, then hide 
the turtle and move it, the original turtle image will remain on the screen, 
because “hiding” the empty shape effectively erases nothing. .SHAPE 1 
will give the turtle the “null” shape. The following procedures use this 
method. The first will stamp a shape that the user specifies. The second 
procedure determines the current shape and stamps that. (It uses 
USHAPE which is an address that can be read from the file ADDRESSES 


CTRL-C 

ctrl-G 


esc 

1...9 


2 What actually happens is that the previous byte in the shape table is deleted, so that the 
previous one, two or three segments are deleted. 
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on the utilities disk.) The last procedure stamps the shape at random 
places on the screen. 

TO STAMP :SHAPE 
.SHAPE 1 
HIDETURTLE 
.SHAPE :SHAPE 
SHOWTURTLE 
END 

TO SS 

STAMP (.EXAMINE :USHAPE)+256*.EXAMINE :USHAPE+1 
END 

TO STAMPRANDOM 
SS 

SETXY (120 - RANDOM 240)(110 - RANDOM 220) 

STAMPRANDOM 

END 


Saving Shapes 

To save on disk all the shapes you defined, use the SAVESHAPES 
procedure. It takes the name of the file as input. Be sure to use a quote, 
just as you would with SAVE. 

The following information is very important: Start in a fresh Logo 
workspace with no procedures defined. Then read in the shape editor 
and define a few shapes. SAVESHAPES "PARTS will create two files. 
The first, PARTS.SHAPES, will contain the shape table (the actual 
appearance of the shape): the second, PARTS.AUX.LOGO, will have the 
names of the shapes and the following procedures: SETSHAPE, .SHAPE, 
SIZE, INITSHAPES, and any procedures you have defined . Unless you are 
writing low-level procedures for manipulating shapes themselves, you 
probably don’t want to include any extra procedures in this file. 

The “.AUX” file contains a procedure called INITSHAPES; it 
automatically loads and sets up the defined shapes. For a procedure to 
use shapes you saved in a file called BLOCKS, your procedure should 
include the following: 
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READ "BLOCKS.AUX 
INITSHAPES 

For easier maintenance of your program, you should keep the program 
that actually makes use of the shapes in a file separate from the shape 
files. That way, you can make changes to the shapes and keep them in 
the shape files, and make changes to the procedures that use shapes and 
keep them in a different file. You don’t have to worry about accidently 
erasing the procedures or names that the shape system uses. To 
accomplish this, you should not define procedures to use shapes while 
you’re still using the shape editor. If you accidently do, you should edit 
the resulting “.AUX” file and separate the procedures into two different 
files. 


A Sample Session 

7G00DBYE 

TREAD "SHAPE.EDIT 
7MAKESHAPE "BLOCK 
Define a shape here 
7MAKESHAPE "TIRE 
Define another shape here 
7SAVESHAPES "BLOCKS 

At this point, Logo will ask you to place your files disk in the disk drive. 
This disk should be the one you want to use to store the shapes and the 
program to use them. After Logo saves the shapes, it will ask you to put 
the disk containing the shape editor back into the drive. You should then 
place the Utilities Disk (or a copy of it) into the drive and press return. 
Logo will pause for a while as it reads the shape editor back into memory. 

There should now be two new files on the files disk that you used: 
BLOCKS.AUX.LOGO and BLOCKS.SHAPES. Type GOODBYE to erase 
everything and start over. To regain the shape you created, type 

READ "BLOCKS.AUX 
INITSHAPES 
SETSHAPE :BLOCK 

You now have two options: you may write procedures to use these 
shapes, and then save everything. That way, all you have to do to read in 
the shapes is execute INITSHAPES; however, if you change the shapes in 
the file BLOCKS, you must erase all the NAMES and read in the new 
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BLOCKS.AUX file. The alternative is to start with a fresh workspace by 
typing GOODBYE, write the procedures that use the shapes, and include 
the READ and INITSHAPES commands in the procedures so the shapes 
are read in when the program starts running. When testing the program, it 
will bring the shapes into the procedures workspace. Therefore, when 
you are satisfied, use ERASE to erase the following; NAMES, SETSHAPE, 
.SHAPE, and INITSHAPES. Then save the file. The following paragraph 
briefly describes a program that uses this technique of separating the 
files. 


The Utilities Disk Example: Rocket 

On the Utilities Disk, there is a demonstration program called ROCKET. 
Type READ "ROCKET and execute the procedure ROCKET. The 
ROCKET procedure READs the ROCKET.AUX file (described above), and 
calls the procedure INITSHAPES. The INITSHAPES procedure 
automatically sets up the shapes. 

It will make it easier to use the shape procedures if you follow the 
conventions outlined here. Type PO ROCKET to see how it works. To run 
it again without loading the file, type SHOW. 
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Chapter 6 

Assembly Language Interfaces to Logo 

The Logo system for the Apple has been designed to be both powerful 
and easy to use. Writing and executing programs in the Logo language 
using the primitives listed in the previous chapter should be sufficient for 
most purposes. However, there are situations in which it is desirable to 
extend the capabilities of the system by getting direct access to machine 
language. 

Warning: This chapter will only be useful/intelligible to people who are 
familiar with assembly language programming on the Apple. 

The Logo system has various “hooks" built in to it that enable users to 
directly access memory locations in the Apple and to interface assembly 
language routines to Logo programs. The Logo Utilities Diskette includes 
a 6502 machine language assembler that aids in doing this. Another hook 
built in to Logo allows you to create simple animation effects by supplying 
a new shape to be displayed in place of the Logo turtle. Another hook 
allows you to modify the behavior of the Logo editor so that it can be used 
as a regular text editor rather than as a procedure editor and to access 
disk files in non-standard ways. 


6.1. .EXAMINE and .DEPOSIT 

These two commands are essentially the usual Apple PEEK and POKE 
routines. 1 .EXAMINE takes an address as an input and returns (as a 
number) the byte stored in that address. .DEPOSIT takes two inputs, an 
address and a numeric value, and deposits the value in the byte specified 
by the address. These commands are useful for communicating with 
special-purpose I/O devices, especially in cases where the facility 
supplied by OUTDEV is insufficient. Needless to say, .DEPOSITing into 


^ne difference is that the addresses should always be specified as positive integers. 
Apple PEEK and POKE require addresses above 32K to be given as negative numbers. 



60 


Logo for the Apple II: Technical Manual 


arbitrary memory locations can cause Logo to crash or do other unfriendly 
things. Note that the addresses used with these commands are ordinary 
Logo numbers, which are expressed in base 10, even though it is 
customary to think of Apple addresses as written in hexadecimal notation. 
For many purposes it would be useful to write a conversion routine that 
converts from hexadecimal to base ten. 2 That way, you could type, for 
example 

.EXAMINE HEX "9E 
rather than 

.EXAMINE 158 

When Logo is running, monitor ROM locations are not available. Instead, 
these locations correspond to parts of the Logo system stored on the 16K 
memory card. The actual contents of the ROM are shadowed by this 
memory. Calling .EXAMINE (or .DEPOSIT) with an address which 
corresponds to the “Language Card” will cause unpredictable effects. 
The 16K memory card occupies locations $C080-$C08F (49280-49295). 


6.2. Writing Your Own Machine-Language Routines 

You can interface your own machine-language routines to Logo by 
using the .CALL primitive. .CALL takes two inputs: the first is the address 
of the routine, and the second is an integer input that the routine may 
examine. The routine may output an integer or output nothing. The .CALL 
primitive always requires two inputs, regardless of whether the user 
routine chooses to examine the second one. 

.CALL transfers control to the address specified by its first input. 
Naturally, before doing this, you should assemble an appropriate routine 
and store it at the address. The available memory for user machine code 
begins at $99A0 and extends to $9AA0. You can do the assembly by hand 
and store the routine using .DEPOSIT, but you will find it much more 


2 

Throughout this chapter,we use the convention of specifying hexadecimal numbers as 
prefixed by a dollar sign, e g., $9E is 158 decimal. 
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convenient to make use of the Logo assembler described in section 6.3. 

When your routine begins executing, the page zero locations NARG1 
and NARG1 +1 contains the first input to .CALL -- which is just the 
address of the routine itself. NARG1 + 2 and NARG1 + 3 are guaranteed to 
contain zero at the time the routine is called. The routine may use 
locations NARG1 through ANSN4 + 3 as temporary storage locations, 
without worrying about restoring them before returning. These storage 
locations are volatile; that is, Logo may change these locations between 
successive calls to your routine. Locations USERPZ through $FF are not 
used by Logo and so can be used by your routines as non-volatile, page- 
zero storage. 

NARG2 through NARG2 + 3 contain the second input to .CALL, stored 
as a four-byte fixnum in two’s complement form. Thus .CALL ($ "99A0) 3 
would result in the following values in memory: 


NARG2 

NARG2+1 

NARG2+2 

NARG2+3 

3 

0 

0 

0 

NARG1 

NARG1+1 

NARG1+2 

NARG1+3 

$A0 

$99 

0 

0 


Substituting -1 for 3 would make NARG2 through NARG2 + 3 contain $FF. 

To output an integer, store the integer to be returned (using the above 
format) in the four locations with NARG2 through NARG2 + 3, and jump to 
location OTPFX2. If the number is stored in some other set of 4 
consecutive page-zero variables (such as NARG1), load Y with the 
address and jump to OTPFIX. 

To output the Logo word "TRUE, jump to OTPTRU; similarly, jumping to 
OTPFLS will cause your routine to output "FALSE. To output no value, 
simply end the routine with an RTS instruction. 

Here is an example which reads the state of the cassette port (by 
addressing the cassette input location $C060) and returns "TRUE or 
"FALSE, depending on whether there is sound available. The code here 
is written in standard 6502 assembler format. To use it you will have to 
assemble it by hand and deposit the instructions in memory (but see 
section 6.3 below). 
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ORG $99A0 
CIN EQU SC060 
OTPTRU EQU <see Addresses.Logo> 

OTPFLS EQU <see Addresses.Logo> 

LISTEN: LDA CIN 

BMI ON ;See Apple II Reference Manual, p. 78. 

JMP OTPFLS 
ON: JMP OTPTRU 

END 

Now you can set the Logo variable LISTEN to the address of the label 
LISTEN and execute this new “primitive” by typing 

.CALL :LISTEN 0 

(Note that an input is needed, even though it is ignored.) This will work just 
like a normal primitive or procedure -• 

PRINT .CALL :LISTEN 0 



will print TRUE or FALSE. 

When a machine language routine has determined some error condition 
that would make it inappropriate to return to the Logo procedure that 
called it, it can and jump to PPTTP, which effectively executes the Logo 
TOPLEVEL primitive. 


6.3. The Logo Assembler 

The Logo assembler is a 6502 assembler that is written in the Logo 
language. This program was designed and written by Leigh Klotz. The 
assembler is stored on the Logo utilities disk in the file ASSEMBLER. 3 To 
use the assembler, simply read this file into Logo as you would any normal 
Logo file and then run a procedure called SETUP: 

READ "ASSEMBLER 

SETUP 

To assemble a routine, you write the routine in the format of a Logo 
procedure, using the Logo editor. For example, the tape cassette 


The ASSEMBLER program in turn reads data stored on the Logo disk in auxiliary files 
AMODES and OPCODES. 
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example on page 62 would be written as the procedure: 

TO CASSETTE.CODE 
[MAKE "CIN S "C060] 

[MAKE "OTPFLS <see Addresses.Logo>] 

[MAKE "OTPTRU <see Addresses.Logo>] 

LISTEN: LDA CIN 
BMI ON 
JMP OTPFLS 
ON: JMP OTPTRU 

END 

Notice that there are differences in syntax between the input accepted by 
the Logo assembler and the standard 6502 assembler. The syntax of code 
for the assembler is explained in section 6.3.2. 

Once you have defined the procedure you now assemble it by typing 
ASSEMBLE "CASSETTE.CODE 

ASSEMBLE will now assemble the instructions and place them in the 
default location ($99A0). Also, any labels in the code (such as LISTEN, 
above) will now be defined as Logo symbols. So now you can call the 
routine by 

.CALL :LISTEN 0 


6.3.1. Using the Assembler to Write I/O Routines 

While it is possible to use the .EXAMINE and .DEPOSIT primitives to 
operate most peripheral devices, machine language routines are required 
for others. If the peripheral device is one which has a built in “driver,” 
then you can use the OUTDEV primitive. OUTDEV takes as input a slot 
number 1 through 7 as an input and directs the Logo character input or 
output routines to the device at the specified slot. 

Some devices, however, may require special routines to handle input 
and output. If you specify OUTDEV with an input greater than 8, the input 
will be interpreted as the address of a routine in memory that should be 
called in place of Logo’s regular character input or output routine. 

Many peripherals use a technique called “handshaking” to assure that 
the computer does not try to send data to them (or read data from them) 
too fast. The following program will interface Logo to such a device. We 
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assume that STATUS is the memory-mapped I/O address on the 
peripheral card indicating the status of the device. In this case, bit 7 is 
high if the device is ready to receive a character. DATA is the address 
where bytes to be sent should be stored. 

Once you have assembled this routine, you may access the peripheral 
by executing OUTDEV :TYOWAIT. 

TO CODE 

[MAKE "STATUS <address>] 

[MAKE "DATA <address>] 

TYOWAIT: LDX STATUS 
BPL TYOWAIT 
STA DATA 
RTS 

END 

A character output routine like this, which is meant to be called via 
OUTDEV, should expect that the A register will contain the byte to be 
output. 

Here is another example output routine. This one causes all I 
characters to be printed as spaces: 

TO IOCODE 

XCLOUT: CMP H "! 

BNE OUTCHAR 
LDA n 32 

OUTCHAR: JMP COUT 

END 


6.3.2. Syntax of Input to the Assembler 

In order to take advantage of some aspects of the Logo language, the 
Logo assembler uses a format slightly different from most assemblers. 
Each assembly-language program is stored as- a Logo procedure, 
although this procedure cannot be executed directly. The following 
paragraphs concisely describe the Logo assembler format; a study of the 
examples provided will better explain how to write assembly language 
programs to interface with Logo. 

Labels within the program are indicated by a postfixed colon. 
References to page-zero memory locations that are not indirect-indexed 
(LDA (FOO ,X)) or indexed-indirect (LDA (FOO) ,Y) must have an 



Assembly Language Interfaces to Logo 


65 


exclamation point before the label or expression that is on page zero. (If 
you forget the exclamation point, the instruction will be coded as absolute 
references, and will occupy one more byte.) There must be a space 
following every ! (indicating page-zero reference) or # (indicating 
immediate mode), and after every label or reference to a label. The 
operand of an instruction may be a word (a reference to a label), a 
number, a list, or a single-letter word beginning with a quote. If the latter 
case, the operand is the ASCII value of the letter. 

Anything inside a list is evaluated as a regular Logo expression. If the 
list is the first thing on the line, it is not allowed to output a value, and is 
evaluated for “side-effect” (label assignment) only. If it is an operand 
(follows the name of an instruction), it is expected to output something. 
Thus, arithmetic expressions such as :FOO + 3, where FOO is a label or 
regular Logo symbol, may be used provided they are enclosed in square 
brackets. Of course, references to the values of labels inside square 
brackets must have dots (:) before them, and spaces have their normal 
significance. All labels are Logo variables. DOT is a Logo variable whose 
value is the current location being assembled. 

The HI8 and L08 procedures, which return respectively the high and 
low eight bits of a number, are also useful inside lists. Lise them like this: 

LDA n [L08 :SOURCE] 

STA ! DEST 

LDA # [HI8 :SOURCE] 

STA ! [:DEST+1] 

The $ procedure takes as input a word that is a hexadecimal number 
and outputs the number that it represents. Thus, hex numbers may be 
included in programs by placing a call to the $ inside a list. Use the MAKE 
primitive to assign values to labels. 

If you use octal or binary numbers a lot, you might want to change the 
value of the Logo word $BASE. This is the base used by the $ procedure. 
Changing it to 2 gives you binary, and so on. You can do this within the 
source for an assembly language program with [MAKE "$BASE 2]. 

You can assemble arbitrary bytes into code by placing the number on 
the line with nothing (except perhaps a label) preceding it. 

Here is a simple program in normal assembler syntax: 
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ORG 

EQU S99A0 

NARG2 

EQU $9E 

BELL 

EQU S1C40 

PASS: 

LDA NARG2 


CMP #$04 


BEQ YES 


RTS 

YES: 

JMP BELL 

END 



And in the Logo assembler syntax: 

TO CODE 

PASS: LDA ! NARG2 ;! means page zero. Note space after !. 

CMP * [$ ”04] 

BEQ YES 
RTS 

YES: JMP BELL 
END 

To assemble this program, load in the assembler and type SETUP and 
READ "ADDRESSES. The following will assemble the above program, 
with a default origin of $99A0. 4 

ASSEMBLE "CODE 

This will generate a listing file on the screen and deposit the code in 
memory. The labels are available as Logo symbols for use with .CALL, 
.DEPOSIT, and .EXAMINE. To invoke the above routine, type 

.CALL : PASS 4 

to beep the bell, and .CALL PASS <anything but 4> to do nothing. This is 
sort of a secret “password” program. 

If you try to assemble long programs, you may run out of memory. One 
way to get more memory is to load in only those instructions that your 
program uses. In a fresh Logo, read in the OPCODES file from the utilities 
disk and erase the instructions (using ERNAME "BIT, for example) that 
you don’t plan to use. Then, rewrite this as the new OPCODES file. 5 


4 

To assemble at some other start address, assign the value to the Logo variable ORG. 

^Of course, you should not do this on the original Logo disk. Save copies of the original 
assembler files on an ordinary Logo file disk and run the assembler using these copies. 
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6.3.3. Saving Assembled Routines on Disk 

With the DOS primitive, you can save the actual machine code that the 
assembler generates. The following will save your assembled routines in 
a file called ROUTINES. 

DOS [BSAVE ROUTINES.BIN,AS99A0,L$100] 

To load the routines into Logo, type 

DOS [BLOAD ROUTINES.BIN] 

The BIN is short for BINARY, and might help you remember that the file 
is a saved machine-language file. Keep in mind that in addition to saving 
the actual machine code, you should save the Logo variables that define 
the addresses used by .CALL. One way to do this is to type EDIT NAMES, 
then exit the editor with ctrl-G and execute ERASE ALL. Re-enter the 
editor and edit the definitions to include only the ones you still want. Then 
exit the editor with ctrl-C. Save the file by typing SAVE "ROUTINES. 
Then, to reload your routine, type READ "ROUTINES and DOS [BLOAD 
ROUTINES]. 


6.4. Example: Generating music 

This section presents an example of an assembly language extension to 
Logo. Although this version of Logo has no primitives for playing music, 
you can use the .CALL feature to interface a machine-language routine to 
produce pitches with the Apple II speaker. The speaker produces a 
narrow pulse each time the location to which it is mapped, $C030 (49200), 
is referenced. Try repeatedly reading this location from Logo using 
.EXAMINE. 6 

In order to play pitches, a program has to examine this location many 
times each second. The number of clicks produced per second is called 
the frequency. To make the pitches sound equally spaced, the ratio of 


g 

Due to the way the speaker is interfaced, depositing in the location has no effect. 
Additionally, the speaker generate clicks only on every other reference. This brings the pitch 
down one whole octave, but does not affect the intervals of pitches played. 
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successive frequencies must be constant; that is, the frequencies must be 
in geometric progression. In Western music, which has twelve pitches to 
the octave, this constant must be such that the frequency doubles after 
twelve pitches; thus, the ratio of successive pitches in the scale is the 
twelfth root of 2, or approximately 1.05946. 

Closely related to the concept of frequency is that of period. The period 
of a pitch is simply the reciprocal of its frequency. Given the period, it is 
possible to play the corresponding pitch by repeatedly generating a 
narrow pulse (click), and then waiting for the period to expire. The 
program which does that will have to be written in machine language, 
since it must run very quickly. 

To make Logo play music, we need to write some procedures. Let’s say 
there should be a procedure called "PLAY," and that it should take two 
inputs: a list of pitches and a corresponding list of durations. The pitches 
should be numbers specifying the number of chromatic steps above or 
below a center pitch. The durations should be lengths of time for the note 
to sound, with 1 being the shortest, 2 being twice as long, and so on. 

TO PLAY :PITCHES :DURS 
IF :PITCHES=[] STOP 

PLAY.NOTE (FIRST :PITCHES) (FIRST :DURS) 

PLAY (UF :PITCHES) (BF :DUBS) 

END 

Even though we’re not exactly sure how notes will be played, we can 
assume that PLAY.NOTE actually plays a note (given the pitch number 
and duration) because that’s what we’re going to write it to do. 

Since the notes are played by a machine-language program that 
requires the period of the pitch, we must find some way of associating the 
periods of various pitches with their representation in the PLAY 
procedure. A table would be one good way of doing this. For each note, 
there is an entry in the table that contains the period. We’ll construct our 
table as Logo words, and have the periods as the things associated with 
the names. We’ll choose some arbitrary name for this table, and then 
have the individual notes be represented by words that begin with the 
table name and have the number of the pitch at the end of the name. So, if 
we call the table " #" the period for note number 3 is in the Logo variable 
called " #3." We’ll assign a special value to mean rest, and use the Logo 
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variable #R to store this value, so that “R” will cause a rest in the PLAY 
procedure. 

Additionally, it would be useful to be able to specify notes above or 
below the center octave in some convenient notation. We have chosen 
postfixed plus and minus signs to indicate different octaves. In inputs to 
the PLAY procedure 4 means the fourth pitch above the center tone. 4 + 
means the same pitch an octave above it, and 4- the pitch one octave 
below. (You can worry about an appropriate notation for extending the 
range to more than these three octaves if you wish.) 

The following MAKE.PITCHES procedure associates each pitch with 
the proper period. It takes as input the number of the highest octave and 
the period of the highest pitch in that octave. 

TO MAKE.PITCHES :PERI0D 
MAKE.OCTAVE 11 "+ :PERIOD 
MAKE.OCTAVE 11 " :PERIOD • 2 

MAKE.OCTAVE 11 :PERIOD * 4 

MAKE "OR 16384 

END 

TO MAKE.OCTAVE :PITCH :0CTIND :PERIOD 
IF : PITCH = 0 STOP 

MAKE (WORD "0 :PITCH :0CTIND) :PERI0D 
MAKE.OCTAVE :PITCH-1.:0CTIND :PERI0D* 1.0596 

END 

This is about as far as we can proceed in Logo before we know the 
specifics of the implementation of the note-generating routine. This 
machine-language routine should sound a note with a specific period for a 
certain length of time. As mentioned before, the way to generate a tone 
on the Apple speaker is to cause a click, wait for the period to expire, and 
keep doing this until the note is supposed to be over. 

The heart of our machine language routine will be a subroutine called 
CLICK (listed below). This routine is called repeatedly with the (16 bit) 
period in locations PER.H and PER.L. It copies them to another place so 
that they will still be valid next time around CLICK is called. 

One way to cause notes to have a certain duration would be to call the 
CLICK routine a certain number of times. Calling it twice that many times 
would result in a note twice as long. That is fine if only one period (pitch) 
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is used. Unfortunately, the CLICK routine by its very nature takes a 
different amount of time for different periods (i.e., different pitches); 
therefore, the routine that plays notes must convert the actual duration to 
the number of clicks to generate. 

If we pick a base pitch, and scale the durations of all other pitches from 
that one, our problems will be solved. The number of times to call the 
CLICK routine for a given duration and period is :DURATION * 
(:BASE.PERIOD / PERIOD). This scaling is called normalization. It is 
much easier to do the required multiplication and division in Logo than in 
machine-language, so we’ll calculate this scaling factor in Logo. The 
machine-language routine will take this number as an input, and call the 
CLICK routine that many times. 

Here is the entire machine-language program for playing notes: 
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TO MCODE 

[MAKE "SPKR $ "C030] 

[MAKE "DUR.L :MARG2] 

[MAKE "DUR.H :NARG2+1] 

[MAKE "PER.L :NARG2+2] 

[MAKE "PER.H :NARG2+3] 

[MAKE "COUNT.L :USERPZ] 

[MAKE "COUNT.H :USERPZ+1] 

[(PRINT [STARTING ADDRESS:] :ORG)] 

TONE: IDA ! DUR.L 

ORA ! DUR.H 

BEQ EXIT ;A duration of 0 means no note. 

LDA ! DUR.L 
SEC 

SBC n 1 
STA ! DUR.L 
LDA ! DUR.H 
SBC ff 0 
STA ! DUR.H 
JSR CLICK 
JMP TONE 
EXIT: RTS 

CLICK: LDA ! PER. L 

STA ! COUNT.L 
LDA ! PER.H 
STA ! COUNT.H 
BIT ! COUNT.H 
BVS PDLOOP 

LDA SPKR ;Click 

PDLOOP: LDA ! COUNT.L 
ORA ! COUNT.H 
BEQ EXIT 
LDA ! COUNT.L 
SEC 

SBC ff 1 
STA ! COUNT.L 
LDA ! COUNT.H 

SBC ff 0 ;propagate carry 

STA ! COUNT.H 
JMP PDLOOP 

[(PRINT "LENGTH: :DOT-:ORG "BYTES. )] 

END 

The loops that make up the body of the CLICK and TONE routines both 
have an interesting property: every iteration takes the same amount of 
time as every other. Some methods of writing these loops would have 
them run faster or slower when DUR.H (or PER.H) was 0. Those methods 
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would cause durations of 400 clicks not to be twice as long as durations of 

200 . 

Note that in the CLICK routine there are some instructions that are 
outside the loop, and are executed once for each period of the tone. The 
time they take has an affect on the pitches produced. It is just like adding 
a small amount to every period. To counteract this, we subtract a small 
amount from each period. This factor is the FUDGE constant. 

Some method of interfacing the machine-language routine to the Logo 
procedures is needed. The .CALL primitive is provided for just this 
purpose, but allows passing only one input. What we need is a way to 
pass both the period (PER.H and PER.L) and the duration (DUR.H and 
DUR.L). A careful look will show that this adds up to 32 bits, which is the 
number of bits .CALL can pass to the machine-language programs it calls. 
If we arrange memory locations so that DUR.L/DUR.H are the low two 
bytes of the input to .CALL, and PER.L/PER.H the high two, the following 
procedure will give the two inputs to machine-language routines: 

TO .CALL.2 :ADDR :INPUT1 :INPUT2 

.CALL :ADDR (ROUND :INPUT2) + (ROUND : INPUT1)*65536 

END 

Note the use of the ROUND primitive. Were it not called, non-integer 
periods would cause the result of the multiplication not to be a multiple of 
65536, interfering with the duration. The PLAY.NOTE procedure is a 
combination of this procedure and the normalization step mentioned 
before (The three inputs to .CALL.2 are put on separate lines below, to 
make them more readable): 

TO PLAY.NOTE :PERIOD :DURATION 

MAKE "PERIOD THING (WORD "# :PERI0D) 

.CALL.2 :T0NE 

:PERIOD - :FUDGE 

(:DURATION * :BASE.PERIOD / :PERI0D) 

END 


The Music demonstration program 
There are two music-related files on the Utilities Disk. One is a Logo file 
called MUSIC, and the other is a file of saved machine-language routines 
called MUSIC.BIN. To try out the music demo, type READ "MUSIC and 
SETUP. All the procedures shown here are included. 
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6.5. Useful Memory Addresses 

This section contains brief descriptions of addresses in the Logo 
program that serve as “hooks" for modifying Logo with .EXAMINE and 
DEPOSIT and for interfacing assembly language programs to Logo as 
described in section 6.2. The actual values of the addresses are 
contained in a file called ADDRESSES that is included on the Logo utilities 
disk. Beware that the actual values of these addresses may change with 
new releases of Logo. Executing READ "ADDRESSES in Logo will define 
the addresses as normal Logo variables whose values are integers. 
(Comments in the file also give the values of the addresses as in 
hexadecimal notation.) When using an address, it should be preceded 
with the character: as in .EXAMINE :EPOINT. 


Page zero locations: 


EPOINT 



ENDBUF 


SAVMOD 


BKTFLG 


Location of the current character in the edit buffer. 
Used by the editor and the EDOUT routine. 

The address of the last character in the edit buffer, 
plus one. The disk saving routines (see SAVMOD) 
save from $2000 to the address in this location. See 
the example on page 81. 

If the contents of this location is 0, READ and SAVE 
work normally. If it is non-zero, SAVE saves whatever 
is in the edit buffer (which can be text other than 
procedures and names) and READ restores the edit 
buffer from disk, but doesn’t evaluate it. See section 
7.1. 

If this location contains 1, then Logo attempts to print 
out objects in a manner such that they can be read 
back in. This is useful when you are printing to the 
EDOUT device. See section 7.3. All lists will be printed 
with brackets around them; none will be printed in 
"sentence" form. Funny-pnames will be printed with 
their funny quotes. PO NAMES will print out Logo 
variables and their values with MAKE "VARIABLE 3 
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OTPDEV 

INPDEV 

USHAPE 

SSIZE 

INVFLG 

NARG2 

NARG1 

ANSN4 

USERPZ 

HIMEM 
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instead of "VARIABLE is 3. 

Controls the action of the special “interrupt” 
characters ctrl-F, ctrl-G, ctrl-S, ctrl-T, and ctrl- 
W. If the location contains zero (the default), these 
keys have their normal action in DRAW and NODRAW 
mode. If it contains 1, these characters have no 
special meaning, and will be recognized by 
READCHARACTER. ctrl-Z and ctrl-shift-M are still 
enabled. To disable them also, deposit 255 in 
NOINTP. 

These locations contain the current cursor location, in 
columns and rows, respectively. .EXAMINE :CH 
outputs the current horizontal cursor position. See the 
CURSOR primitive, page 36 

Contains the address of the routine currently being 
used for character output. 

Like OTPDEV, but for character input. 

Pointer to user-defined turtle shape. See section 5 
Shape size for turtle or user shapes. Default = 1. 

Determines whether characters will be white-on-black 
(default, contents = 255), black-on-white 

(contents = 0), or flashing (contents = 64). 

Second input to .CALL. 4 bytes. See section 6.2. 

First user-available temporary location. All memory 
from here to ANSN4 + 3 is available for user routines. 
See section 6.2. 

Last user-available temporary location. This and the 
next three bytes are free. 

First user-available permanent page zero location. 
From this location to $FF is not used by Logo. 

(.EXAMINE :HIMEM) + 256*(.EXAMINE :HIMEM + 1) 
outputs the highest address available for user 
machine-language programs. It is set by the 
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MAXFILES1 DOS command to $9AA5. See VZZZZZ. 


Other useful addresses 

OTPFX2 

Jumping to this address will cause the .CALL to output 
the integer stored in NARG2 through NARG2 + 3. See 
section 6.2. 

OTPFIX 

Like OTPFX2, but return to Logo with value the integer 
stored in the four successive bytes starting with the 
page-zero location pointed to by the Y register. 

OTPTRU 

Jump to this routine to output "TRUE. 

OTPFLS 

Output "FALSE. 

GETRM1 

Loading from or storing to this location twice, e.g., 
LDA GETRM1, LDA GETRM1, enables Logo locations 
in extended memory and disables Monitor ROM. 

KILRAM 

Referencing this location enables the Apple monitor 
ROM. It is enabled during .CALL execution unless 
explicitly disabled. 

PPTTP 

An alternate exit for user machine-language routines. 
Jumping to this address runs the Logo primitive 
TOPLEVEL (page 35). It is useful for to return to Logo 
in this manner when some error condition has 
occurred, making it inappropriate to continue 
executing .CALLing procedure. 

COUT 

Logo’s normal screen character-output routine. Prints 
the character in A on the screen. 

EDOUT 

Routine to place the character in the A register in the 
edit buffer. Deposits A in location pointed to by 
EPOINT and increments EPOINT. Returns without 
doing anything if EPOINT is greater than $3FFF. Can 
be used with OUTDEV to cause Logo to place text 
directly in the edit buffer. See the example on page 


81. 
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PNTBEG 


ENDPNT 

BELL 

HOME 

CLREOP 

SCROLL 

CLREOL 

FILLEN 

FILBEG 

VZZZZZ 


Routine to reset EPOINT to beginning of the edit 
buffer. Use before outputting to the buffer (with 
OUTDEV :EDOUT) the first time. See the example on 
page 81. 

Routine to set ENDBUF to EPOINT. Use when finished 
printing to the buffer. See PNTBEG, EPOINT, 
ENDBUF. 

Routine to beep the bell. Use PRINT 1 CHAR 7 to beep 
from Logo. 

Homes the cursor and clears the screen. 

Clear from cursor position to end of screen. 

Scroll. 

Clear to end of line. 

Contains length of last file loaded. 

Start address of last file loaded. 

(.EXAMINE :VZZZZZ) + 256*.EXAMINE :VZZZZZ + 1 
outputs the lowest address available for user machine- 
language programs. Although this address may be 
below $99A0, you should not place code in the 
intermediate region, since future releases of Logo may 
use that area of memory. 
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Chapter 7 

Miscellaneous Information 

7.1. Using the Logo System as a Text Editor 

The Logo system is set up to read and save files that contain Logo 
procedures. By modifying the system, one can use Logo to read and save 
text files (and thus be able to use the Logo editor purely as a text editor), 
to use the disk for temporary storage, and to design “self starting” Logo 
programs. 

Normally, to enter the editor you type TO followed by the name of a 
procedure to be created or edited. To work with text in Logo, it is 
necessary for the edit buffer in memory to be empty. Entering the empty 
edit buffer is achieved by typing TO followed by return. At this point, text 
is written and edited in the same way that a procedure is written and 
edited. To save the text it is necessary to exit the editor. Instead of typing 
ctrl-C, which will define a procedure. ctrl-G is typed. This exits the 
editor without making any changes to it. (Note: For this reason, the text 
will be saved and printed exactly as it appears. It is not reformatted as 
procedures are.) However, if you then edit a procedure, enter graphics 
mode, etc., the text will be lost. Therefore, it is necessary to SAVE the 
buffer as a file on a disk. As with other files, any name can be used, such 
as SAVE "MYFILE. However, SAVE needs to be used differently than 
usual as described below. To make this easier, there is a TEXTEDIT file 
on the Utilities Disk which incorporates these concepts. For an 
explanation of TEXTEDIT, see the section on the Utility Disk. 

Important: The SAVE primitive normally saves the names and 
procedures in the workspace by placing them in the edit buffer, and then 
saving the buffer on disk. If you want to write arbitrary text on disk to be 
loaded back into the edit buffer without being evaluated, you can set the 
“save mode” flag; it controls the action of READ and SAVE. Normally the 
memory location SAVMOD contains zero. When you deposit any non-zero 
number, SAVE will save the previous contents of the edit buffer (rather 
than saving workspace), and READ will not evaluate the edit buffer after 
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reading it in from disk. Nothing in Logo but GOODBYE resets this flag. 
The actual address of the flag may be found in the file ADDRESSES on the 
Utilities Disk, which can be accessed by typing READ "ADDRESSES. This 
should be done before creating the text, or it will be lost. After ctrl-G is 
typed and before the file is saved, you should type 

.DEPOSIT :SAVMOD 1 

If you are going to use the Logo procedure editor as a text editor for an 
entire session, you might want to type this in at the beginning. If you 
should want to read or save some procedures (or names), just type 

.DEPOSIT :SAVMOD 0 
and things will be back to normal. 

To get the file back to work on at a later date, READ "ADDRESSES from 
the utilities disk, type .DEPOSIT :SAVMOD 1, and READ "MYFILE from 
your own disk. Then type ED followed by a return. Do not type TO after 
reading the file or you will start in a new empty buffer and have to read in 
the file again. 


7.1.1. Printing Files 

Were there no means to print files, the Logo screen editor would be 
useless for editing text. The following procedures will print the contents 
of the edit buffer to the peripheral in slot SLOT. Before using it, you will 
need to make ENDBUF have the value listed in the Logo ADDRESSES file. 

TO HARDCOPY 
OUTDEV :SL0T 

PRINTMEM 8192 256*(.EXAMIME :ENDBUF+1)+.EXAMINE :ENDBUF 
OUTDEV 0 
END 

TO PRINTMEM :FROM :TO 
IF :FROM > :T0 STOP 
PR1NT1 CHAR .EXAMINE :FROM 
PRINTMEM :FROM+1 :T0 
END 

Immediately after READing in a file, typing HARDCOPY will print the 
contents of the file. If you have been using the Logo screen editor as a 
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text editor, typing HARDCOPY after typing the ctrl-G editor command will 
print the contents of the edit buffer. 

This method is not the most efficient one for printing listings of 
programs. See page 17. 


7.2. Self-starting files 

You can use SAVMOD to append arbitrary text to the end of procedures 
and names to be saved on disk. This is useful if you have a program that 
you want to start automatically every time a certain file is loaded in. For 
example, suppose you want a procedure called SETUP to be run 
automatically every time you read in the file called GAME. This can be 
accomplished by arranging things so that the command SETUP is 
executed automatically each time the GAME file is read in. 

To do this, define all the procedures needed for GAME. Type EDIT ALL 
to get the entire workspace into the edit buffer. Then, go to the end of the 
buffer (using ctrl-F) and insert commands you want executed directly 
(SETUP, for example). Then, type ctrl-G to exit the editor and then type 

.DEPOSIT :SAVMOD 1 

SAVE "GAME 

.DEPOSIT .SAVMOD 0 

Now, whenever the GAME file is loaded, the procedures will be defined 
and the SETUP instruction that you appended to the end of the edit buffer 
will be executed. 
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7.3. Printing to Disk Files 

Another use of SAVMOD is to enable you to write Logo programs that 
create Apple DOS Binary files. Since this implementation of Logo uses 
binary files to store procedures, you can write text to a file and have Logo 
read it in as a program later. Normally, the DEFINE primitive (31) is better 
for defining procedures; however, certain applications call for printing the 
text of procedures into a file. For example, a procedure that would save a 
list of procedures in a given file could use the following protocol for 
writing to the disk file. (The PSAVE program on the utilities disk uses this 
method.) 

Since this implementation of Logo doesn’t support arbitrary reading 
from disk, these procedures are useful only for a particular set of 
applications, and are printed here mostly for information purposes. 

The following Logo procedures supply a DPRINT facility for “printing” 
to disk files. To use it, execute OPEN with the name of the file as input. 
Then, use the DPRINT command to print to the file buffer. To close the 
file, type CLOSE. This will save things on the disk in the file that is 
currently “open.” You cannot use the editor or graphics while a file is 
open, nor can you print more than 8192 characters. Any extra characters 
will be ignored. 
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TO OPEN :FILE 
MAKE "OPEN.FILE :FILE 
.CALL :PNTBEG 0 
END 

TO DPRINT :THING 
OUTDEV :EDOUT 
PRINT :THING 
OUTDEV 0 
END 

TO CLOSE 
.CALL :ENDPNT 0 
.DEPOSIT :SAVMOD 1 
SAVE :OPEN.FILE 
ERNAME "OPEN.FILE 
.DEPOSIT :SAVMOD 0 
END 

TO OPEN.FOR.APPEND :FILE 
MAKE "OPEN.FILE :FILE 
.DEPOSIT :SAVMOD 1 
READ :FILE 
.DEPOSIT :SAVMOD 0 
.DEPOSIT :EPOINT .EXAMINE :ENDBUF 
.DEPOSIT :EPOINT+1 .EXAMINE :ENDBUF+1 
END 

For assembly-language programmers: The location ENDBUF is Logo’s 
end-of-edit-buffer pointer. The edit buffer begins at location $2000, and 
extends to $3FFF. PNTBEG merely sets ENDBUF to $2000. EDOUT is a 
routine that takes a character in A and places it at the location pointed to 
by EPOINT, and increments EPOINT. The disk saving routine saves from 
$2000 to ENDBUF, so CLOSE has to update ENDBUF from EPOINT by 
calling the ENDPNT routine. 

If you are writing out a file that Logo should be able to read back in and 
execute or interpret as data, then you probably want brackets to be 
printed around toplevel lists. That is to say, Logo normally behaves like 
this: 

PRINT [1 2 [A B] 3] 

1 2 PA B1 3 

but you probably would rather have it behave like this: 


SAVMOD. PNTBEG, EDOUT. EPOINT. 
ENDBUF. and ENDPNT are found 
in the ADDRESSES file. 


jupdates end-of-buffer pointer. 
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PRINT [1 2 [A B] 3] 

[1 2 LLMM 

Deposit 1 in location BKTFLG to obtain this feature, and restore it to 0 to 
get back the default behavior. 1 The .DEPOSITS should be done at the 
beginning and end of the DPRINT routine, so as not to interfere with other 
Logo printing operations. 

Additionally, BKTFLG controls the action of PO NAMES. If you execute 
a PO NAMES while BKTFLG contains 1, then the names will be printed out 
in this form: 

MAKE "NUM 259 


7.4. Various System Parameters 

This section contains various esoteric information about Logo and 
about this specific implementation. It is certainly not necessary to know 
what is presented here in order to use Logo; these topics are covered for 
the curious. 


The Graphics Screen 

When pointing straight up, the turtle can go 121 steps before wrapping 
around to the bottom of the screen. It can go 120 steps downward before 
wrapping around to the top. It can go 140 steps when pointing the the left, 
and 140 when going to the right. If you change the aspect ratio (see the 
.ASPECT primitive, page 40), then the allowable vertical range will 
change, but the horizontal range will remain the same. 


besides using this feature in writing disk files, you may also find it convenient to have 
Logo print top-level brackets when you are dealing with list processing applications. That 
way, a list consisting of a single word will not be printed in the same way as the word itself. 
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Numbers 

The smallest number on which Logo can perform operations is 1N38, 
and the largest is 9.9999E38. The largest positive number which is not 
“floating point” is 2147483647, and the largest negative is -214783647. 


ASCII Values 

There is a correspondence between the characters available in the 
Logo character set and the numbers 0-255. The ASCII primitive, if given a 
word of one letter, outputs the number associated with that letter. The 
CHAR primitive is the inverse, returning a single-letter word. The 
character represented by 0 (often called “null”) is special in Logo: it 
represents the empty word. Just as SENTENCE ignores empty lists as 
input, WORD ignores the empty word. It is impossible to make a word 
which contains the empty word, unless that word is itself the empty word. 

The READCHARACTER primitive, abbreviated RC, reads a key from the 
keyboard and outputs a single-letter word. There are certain “interrupt’ 
keys that will never be output by RC. These are ctrl-F, ctrl-S, ctrl-T, 
ctrl-shift-M, ctrl-W, ctrl-Z, and ctrl-G. The functions these keys 
provide are available whenever Logo is in draw or nodraw mode. The 
following table shows the ASCII values of selected keys. To find out the 
ASCII value of any key, type PRINT ASCII RC, and type the key. 


Key 

ESC 

LEFT ARROW 
RIGHT ARROW 
CTRL-SHIFT-P 
CTRL-SHIFT-N 


ASCII Value 
27 
8 
21 
95 
30 


Sometimes it is useful to be able to disallow ctrl-G, or to use some 
interrupt character for purposes other than the function to which it is 
assigned. For these cases, Logo provides a hook for turning off the 
special meanings of all the above mentioned interrupt characters, except 
for ctrl-Z and ctrl-shift-M. .DEPOSITing 1 in location NOINTP disables 
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interrupt characters. 2 Deposit 0 to re-enable them. See page 74 for a 
discussion of special memory locations. 

When interrupt characters have been disabled, the READCHARACTER 
primitive will output on any key pressed (except of course, ctrl-Z and 
ctrl-shift-M). A typical use of this feature is a system like the INSTANT 
program included on the Logo Utilities Disk. The program could disable 
interrupt characters and assign its own meanings to the characters 
normally reserved for special immediate actions in Logo. 

Another occasion where disabling interrupts is useful is in procedures 
which do things which must be undone before returning to toplevel. If the 
user presses ctrl-G during the execution of a procedure which 
temporarily changes OUTDEV to some other device, all output from then 
on 3 would be directed to the alternate device. The following procedure, 
which uses the NOINTP feature, can be executed without fear of causing 
"STOPPED!" or "PAUSE" messages to be sent to the device. 

TO TCMD :CMD :ARG 

.DEPOSIT :NOINTP 255 

OUTDEV 7 ;device in slot 7. 

(PRINT :CMD :ARG) 

OUTDEV 0 

.DEPOSIT :NOINTP 0 

END 

Line length 

Lines typed in to Logo in the line editor may not be more than 256 
characters long. Additionally, the list which is input to RUN and REPEAT, 
and each sub-list in the second input to DEFINE must abide by this 
restriction. 

Lines typed in in the screen editor (as with TO procedurename) may be 
of any length, as long as it fits in the edit buffer. Similarly, lines read in 
from disk files may be of any length. 


2 

.DEPOSITING 255 in the location will disable all interrupt characters; be careful. 

3 

Until another OUTDEV or Ctrl shift-M. 
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The edit buffer is 8192 characters long. 

Storage in Logo 

Logo stores procedures much more efficiently than most other 
languages. Each procedure is stored as a list of lines. 4 The lines are lists 
of other lists and words. Each word takes up the same amount of space 
every time it is used, no matter how many characters it has. Thus, there is 
almost no penalty for using long, descriptive procedure and variable 
names. 

When Logo runs out of storage space, it enters a process called 
garbage collection . This simply means that Logo is finding out what parts 
of memory are not being used, and makes a big list of all of them. Then, 
when Logo needs to use a memory location, it takes it off of this list. 

Since Logo can’t do anything else (like run your procedures) when it is 
garbage collecting, the process can interfere with certain programs where 
real-time response is important. If this becomes annoying, place calls to 
the .GCOLL primitive at natural pauses in the program. 


7.5. Memory Organization Chart 

This chart describes how the Logo system uses the available address 
space in the Apple II. 


4 

Actually, this implementation of Logo usually stores procedures as arrays of arrays, since 
that method takes half as much space; however, when there isn’t enough contiguous 
memory, Logo uses the list-of lists method. It is possible for the curious to tell how 
procedures are stored: If each line is indented one space, the procedure is stored in the 
array form. If not, it is stored in the rarer list form. This information is completely arcane. 
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Nil: 

$0000 

Misc.: 

$0004 

Stacks: 

$0800 

Vectors: 

$1BFC 

Othercode: 

$1C00 

Buffer: 

$2000 

Logo: 

$4000 

User: 

$99A0 

DOS: 

$9AA6 

I/O: 

$C000 

Nodearray: 

$0000 

Typearray: 

$F660 

Ghostmem: 

$0000 

Unused: 

$FFF8 

Intrpts: 

$FFFA 


- $0003: $ 3 bytes 

- $07FF: $ 7FC, bytes 

- $1BF5: S13F6 bytes 

- $IBFF: $ A bytes 

- $1F FF: $ 400 bytes 

- $3FFF: $2000 bytes 

- $999F: $599F bytes 

- $9AA5: $ 105 bytes 

- $BFFF: $255F bytes 

- $CFFF: $1000 bytes 

- $F65F: $2660 bytes 

- $FFF7: $ 998 bytes 

- $DFFF: $1000 bytes 

- $FFF9: $ 2 bytes 

- $FFFF: $ 6 bytes 


The empty list. 

Buffers and impure. 
Stacks (PDL, VDPL) 
Re-entry addresses 
I/O subroutines 
Editor/graphics buffer 
(23K bytes) Logo code 
User Machine Code 
DOS code, buffers 
Mapped I/O addresses 
(2456. nodes) Nodespace 
(2456. bytes) Type-codes 
Static storage 

Interrupt vectors 
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Index 


* 28 
+ 28 


-28 

.ASPECT 40 
.BPT 40 
.CALL 40,60 
.CONTENTS 41 
.DEPOSIT 41,59 
.EXAMINE 41,59 
.GCOLL 41 
.NODES 41 

/ 28 



; 41 
< 28 


= 29 


> 28 


Addresses, useful 73 
ALLOF 33 
Animal 50 
ANYOF 33 
Arcs 47 

Arrow keys 4,15 
ASCII primitive 36 
ASCII values, table of selected 83 
ATAN 28 

BACK 25 

BACKGROUND 20,25 
Beep 76 
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Bell 76 
BF 29 
BG 20,25 
BK 25 
BL 29 
Brackets 4 
Bugs 6 
BUTFIRST 29 
BUTLAST 29 




CATALOG 22,38 
Catalog, Utilites 43 
CHAR 36,83 
Characters, interrupt 83 
Circles 47 
CLEARINPUT 36 
CLEARSCREEN 25 
CLEARTEXT 36 
CO 39 


Color 20 

Commands, editing 14 


CONTINUE 39 
Control characters 4,11 
Coordinates, graphics 82 


COS 28 
Cosine 28 
CS 25 
CTRL key 4 
Ctrl-A 15 
Ctrl-B 15 
Ctrl-C 10,15 
Ctrl-D 15 
Ctrl-E 15 

Ctrl-F 11,12,15,25,83 

Ctrl-G 10,12,15,83 

Ctrl-K 15 

Ctrl-L 15 

Ctrl-N 15 

Ctrl-O 15 

Ctrl-P 16 

Ctrl-S 11,12,27,83 
Ctrl-shift-M 12,16,36,83 
Ctrl-shift-P 12 
Ctrl-T 11,12,27,83 
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Ctrl-W 12,83 
Ctrl-Z 12,83 
Cursor 9,36 
CURSOR program 46 

DEFINE 31 

Demonstration files 43 
Diskette, Utilities 43 
DOS 38 
DPRINT 47 
DRAW 25 
Draw mode 10 



ED 32 
Edit 12,31 
Edit mode 9 
Editing Commands 14 
ELSE 33 
Empty list 29 
Empty word 29 
END 32 
ER 32 
ERASE 32 
ERASEFILE 22,38 
ERASEPICT 23,38 
ERNAME 32 
ESC key 4,15 

FD 25 
Files 21 
FIRST 30 
FORWARD 25 
FPUT 30 

FULLSCREEN 11,25 
Fullscreen mode 11 


GO 34 

GOODBYE 34 
Grappler 18 



Hain, Stephen 1 
Hardcopy 17 
HEADING 25 
HIDETURTLE 25 
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HOME 25 
HT 25 


IDS Color Printer 19 
IF 34 
IFF 34 
IFFALSE 34 
I FT 34 
IFTRUE 34 
INTEGER 28 
Interrupt Characters 83 


Keys, editing 14 
Klotz, Leigh 1 

LAST 30 
LEFT 26 
LIST 30 
LIST? 30 
Listings 17 
Logo, starting 5 
LPUT 30 
LT 26 

MAKE 33 

Memory, addresses of interesting locations in 73 
Minsky, Henry 54 
Modes 9 
Music 67 

ND 10,26 
NODRAW 10,26 
Nodraw mode 9 
NOT 34 
NOTRACE 39 
NOWRAP 26 
NUMBER? 28 

OP 35 

OPCODES 66 
OUTDEV 16,36,63 
OUTPUT 34 


PADDLE 36 
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r'- 

PADDLEBUTTON 36 
PAUSE 39 
PC 20,26 
P D 26 

PENCOLOR 20,26 
PENDOWN 26 
PENUP 26 
Pictures, printing 18 
Pictures, saving on disk 23 
PO 39 
POTS 39 
PR 37 

Primitives, descriptions of 26 
PRINT 37 
PRINT1 37 
Printers 17 
Printing 17 
PRINTOUT 38 
Procedures,Printing 17 
PU 26 



QUOTIENT 28 

RANDOM 28 
RANDOMIZE 29 
RC 37,83 
RC? 37 
READ 22,39 

READCHARACTER 37,83 
READPICT 23,39 
REMAINDER 29 
REPEAT 35 
REPEAT key 4 
REQUEST 37 
RESET key 5 
Restarting Logo 40 
RIGHT 26 
ROUND 29 
RQ 37 
RT 26 
RUN 35 



SAVE 22,39 
SAVEPICT 23,39 
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SE 31 

SENTENCE 30 

SETH 26 

SETHEADING 26 

SETSHAPE, in shape editor 55 

SETX 26 

SETXY 26 

SETY 26 

Shapes 53 

Shapes, editing 54 

SHIFT key 3 

SHOWTURTLE 26 

SIN 29 

Sine 29 

SIZE, in shape editor 55 
Sobalvarro, Patrick 1 
SPLITSCREEN 11,27 
Splitscreen mode 10 
SORT 29 
ST 26 
STOP 35 
System bugs 6 

TEST 34 
TEXT 32 
TEXTEDIT 46 
TEXTSCREEN 27 
THEN 34 
THING 33 
THING? 33 
Tintinabulation 76 
TO 32 

TOPLEVEL 35 
TOWARDS 27 
TRACE 39 
TS 27 

Turtle, floor 48 
TURTLESTATE 27 

Utilities Disk 43 

WORD 31 
WORD? 31 
WRAP 27 
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XCOR 27 
YCOR 27 
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